<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<html>
<link href="../paracadd.css" rel="stylesheet" type="text/css">
<head>
<title>ParaCADD - Free Autolisp - (all rights reserved)</title>
<meta name="resource-type" content="document">
<meta name="distribution" content="GLOBAL">
<meta name="description" content="ParaCADD - Free to use Autolisp - all rights reserved">
<meta name="copyright" content="1990-2017">
<meta name="keywords" content="free autolisp, AutoCAD design applications, civil, mechanical, piping, sewer, storm, water,plan, profile, P&P, CLG, layers, layering, custom, design, drafting, drawing, CAD">
<meta name="author" content="Henry C. Francis">
<meta http-equiv="Reply-To" content="domain administrator">
<meta http-equiv="content-type" content="text/html; charset=ISO-8859-1">
<meta http-equiv="content-language" content="en">
</head>
<body background="../vlisp.jpg" link="#336633" vlink="#333399" alink="#3366FF">
<div align="center">
<p align="center"  class="stdbody">
This HTML document was automatically generated by
<a href="http://paracadd.com/lisp/lsplst.lsp">LSPLST.LSP</a> from<br>
<a href="http://paracadd.com/">PARAGLIDE&#8482;</a></p>
<p align="center" class="stdbody"> The information shown for each file was automatically extracted from the files<br>
Many files simply do not have a description, sorry. Some files are junk or scraps.<br>
Use "Find" to locate files or topics.<br>
Every effort has been made to eradicate the copyrighted works of others from this listing unless inclusion here is permitted by the author.<br>
There are 915 files in this list. If you discover any copyrighted work that should not be here or if you find a link is broken please tell us.<br>
<a href="http://www.paracadd.com/reCAPTCHA.html">Contact Us</a><br>
<br>
Drawings used by these routines are <a href="./lisp/dwgs.htm">here</a><br>
<font color="#FF0000">Updated November 28, 2021</font><br>
</p>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="-access-to-the-options-dialog-properties"></a><a href="-access-to-the-options-dialog-properties.LSP">-access-to-the-options-dialog-properties.lsp</a>
    </td>
    <td>
    <PRE>
;;make sure vl- functions work

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="-an open method"></a><a href="-an open method.LSP">-an open method.lsp</a>
    </td>
    <td>
    <PRE>
;;;From post 'Re: (command "open".....) for AutoCAD 2K' on 6/10/99...
;;;
;;;The Express Tools team has discovered some other problems with the use
;;;of
;;;'(command "open")'; we are now using code similar to the following to
;;;ensure proper initialization:


    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: cmdopen, openinplace<br/>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="-make variant stuff"></a><a href="-MAKE VARIANT STUFF.lsp">-make variant stuff.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: cmdopen, openinplace<br/>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="100yr"></a><a href="100yr.lsp">100yr.lsp</a>
    </td>
    <td>
    <PRE>
;;;Place "100yr Flood El=###" and symbol at station and elevation.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 2-23-99
;;;	   Edited: 2-23-99
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:100yr<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#getstyle">getstyle</a>, <a href="#gvpno">gvpno</a>, <a href="#mklayr">mklayr</a>, <a href="#set_mjrg">set_mjrg</a>, <a href="#uint">uint</a>, <a href="#upoint">upoint</a>, <a href="#ureal">ureal</a>, <a href="#ustr">ustr</a>, <a href="#uutils">uutils</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="3dcont"></a><a href="3dcont.lsp">3dcont.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:3dcont, convto3d<br/>Requires:<a href="#mklayr">mklayr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="3dface2lines"></a><a href="3dface2lines.lsp">3dface2lines.lsp</a>
    </td>
    <td>
    <PRE>
;;;*****************************************************************************
;;;3DFACE2LINES creates 3D lines along edges of 3Dfaces
;;;Checks for and will not create duplicate lines.

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:3dface2lines, c:delzero, c:endcoin<br/>Requires:<a href="#ureal">ureal</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="3dlline"></a><a href="3dlline.lsp">3dlline.lsp</a>
    </td>
    <td>
    <PRE>
;;;Identifies 3D-Lines and the layer they are on and adds the Lines to a selection set.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	All rights reserved.
;;;
;;;	Copyright:  11/28/2003
;;;	   Edited:  07/21/2012

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:3dline, pr3dline<br/>Requires:<a href="#ureal">ureal</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="aadgrid"></a><a href="aadgrid.lsp">aadgrid.lsp</a>
    </td>
    <td>
    <PRE>
;;;Place a standard Profile Grid array
;;;beginning at the lower left point you specify and
;;;terminating at the upper right point you specify.
;;;
;;;Uses UPOINT.LSP, MKLAYR.LSP
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	5-28-96
;;;	Edited:		12-6-2005
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:adgrid<br/>Requires:<a href="#mklayr">mklayr</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="abbr"></a><a href="abbr.lsp">abbr.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	All rights reserved.
;;;
;;;	Copyright:  
;;;	   Edited: 11-19-2005
;;;
;;;Requires: UKWORD.LSP, UPOINT.LSP, and UREAL.LSP
;;;
;;;****************************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: abbr_alert, abbr_error, abbrhelp, abrad_chk, abrlstfun, c:abbr, c:abbraddn, c:abbrdraw, c:abbrload, c:abbrsave, c:abbrshow, c:abbrtextin, delabbr_lst, descr_txt, set_colr, sort_abbr, stripspaces<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#abrkstr">abrkstr</a>, <a href="#dimscl">dimscl</a>, <a href="#txtsize">txtsize</a>, <a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="abbrlst"></a><a href="abbrlst.lsp">abbrlst.lsp</a>
    </td>
    <td>
    <PRE>
;;;Adds words used in a drawing to Abbr.txt in the drawing's folder or
;;;creates Abbr.txt if it does not exist. Does not make duplicate entries.
;;;Run in every drawing to list all abbreviations and other words used
;;;across a project. Cannot recognize words in Xrefs or nested blocks.
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Edited: 11-23-2005
;;;
;;;****************************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: abbrlst, additems, c:abbrfiles, c:abbrlst, c:abbrsrch, mtxtsubr, snglabbrsrch<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#ukword">ukword</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="abrkstr"></a><a href="abrkstr.lsp">abrkstr.lsp</a>
    </td>
    <td>
    <PRE>
;;;ABRKSTR is a subroutine for applying word wrap to a text string (makes multiple lines from single line).
;;;Requires two arguments (abrkstr [text string] [wrap length as an integer])
;;;(abrkstr ...) only sets a series of variables 'typ_t<n>' representing a stack of text strings where <n> is the line number.
;;;The maximum number of lines allowed by abrkstr is 12.
;;;The stack of text strings are derived by successively splitting the original text string at [wrap length].
;;;;Text placement is not part of (abrkstr ...).  The user must handle text placement after (abrkstr ...) has been called.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Created:	10-4-98
;;;	Edited:		12-30-2010
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: abrkstr, clr_txt<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#ukword">ukword</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="abstr"></a><a href="abstr.lsp">abstr.lsp</a>
    </td>
    <td>
    <PRE>
;;;Apply word wrap to a text string (makes multiple lines from single line).
;;;Uses ABRKSTR.LSP, UINT.LSP.
;;;
;;;Added L2 L3 L4 macros for quick multiline breaks.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Created:	10-4-98
;;;	Edited:		1-9-2006
;;;
;;;********************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:abstr, c:l10, c:l2, c:l3, c:l4, c:l5, c:l6, c:l7, c:l8, c:l9<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#abrkstr">abrkstr</a>, <a href="#tnote">tnote</a>, <a href="#uint">uint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="acaddoclist"></a><a href="acaddoclist.lsp">acaddoclist.lsp</a>
    </td>
    <td>
    <PRE>
;;;Adapted from original code from AfraLisp
;;;http://www.afralisp.net/visual-lisp/tutorials/collections-part-1.php
;;;
;;;		   EDITED: 8/31/2010
;;;
;;;****************************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: acaddoclist, acaddocstatus, quotepaths<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="accxes"></a><a href="accxes.lsp">accxes.lsp</a>
    </td>
    <td>
    <PRE>
;;;Shortcut to startup AccXESTools (Xreox tools for communication with 8825 scanner/plotter)
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  3/1/2001
;;;	   Edited:  3/1/2001

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:accxes<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="acprefs"></a><a href="acprefs.lsp">acprefs.lsp</a>
    </td>
    <td>
    <PRE>
;;;AutoCAD preferences exposed via Visual Lisp functions

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:acprefs<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#autodpifix">autodpifix</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="addbreaklines"></a><a href="addbreaklines.lsp">addbreaklines.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:
;;;	   Edited:
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:addbreaklines<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#autodpifix">autodpifix</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="addno"></a><a href="addno.lsp">addno.lsp</a>
    </td>
    <td>
    <PRE>
;;;Quick and dirty routine to append a number to a text string.
;;;Will work on any selectable object having an association group of 1.
;;;Fails if object selected does not have an association group of 1.
;;;The number will have the current precision.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  3/31/00
;;;	   Edited:  3/31/00

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:addno<br/>Requires:<a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="addrevs"></a><a href="addrevs.lsp">addrevs.lsp</a>
    </td>
    <td>
    <PRE>
;;;Updates revision block named "REVTXUR" or REVTXUR-NEW containing attributes tagged "REV_#_SYMB", "REV_#_DESC", "REV_#_DATE", "REV_#_BY" where # represents numbers 1-8
;;;A block matching these minimal requirements is all that is required.  Formatting, position, etc. may be whatever you may require for your block.
;;;If no revision block exists in the drawing the block named REVTXUR-NEW will be inserted: 0,0,0; scale=1.0; rotation 0.0 (if it exists on your search path).
;;;Adjust your insertion point to fit your requirements. E.g., ours revision block located in the upper right corner of our sheet; so, we set the insertion point at 0,0,0
;;;and put the block contents at about 30.0,20.0
;;;
;;;Command line input: ADDREVS
;;;Script and lisp use: (addrevs <symb> <desc> <date> <by>)
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 1/23/09
;;;		   EDITED: 12/15/15
;;;
;;;Requires subroutines: mklayr.lsp; ustr.lsp
;;;Available by direct download free here: http://www.paracadd.com/lisp/<filename>
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: addrevs, adrevcore, c:addrevs, modrevents, setrevs<br/>Requires:<a href="#mklayr">mklayr</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="addtokens"></a><a href="addtokens.lsp">addtokens.lsp</a>
    </td>
    <td>
    <PRE>
;;;Takes a READ-LINE string from a lisp file and adds only the user symbols
;;;which are found prior to any ; to the list 'alltokens' if they are not
;;;already in the list.
;;;
;;;Requires: Doslib from McNeel and Associates (http://www.en.na.mcneel.com/)
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 01-20-2007
;;;>		   EDITED: 01-20-2007
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: addtokens, list_allatoms<br/>Requires:<a href="#mklayr">mklayr</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="adgrid"></a><a href="adgrid.lsp">adgrid.lsp</a>
    </td>
    <td>
    <PRE>
;;;Place a standard Profile Grid array
;;;beginning at the lower left point you specify and
;;;terminating at the upper right point you specify.
;;;
;;;Uses UPOINT.LSP, MKLAYR.LSP
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	5-28-96
;;;	Edited:		12-6-2005
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:adgrid<br/>Requires:<a href="#mklayr">mklayr</a>, <a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="adjnum"></a><a href="adjnum.lsp">adjnum.lsp</a>
    </td>
    <td>
    <PRE>
;;;Change the first number in a text string by the user specified value. The
;;;new number is conformed to the units if precision specified by the user.
;;;
;;;If specified units of precision are greater than the precision of the original
;;;number zeros are added to the string to display them.  Actual digits reflecting
;;;the precise number intended by the user cannot be determined by this routine.
;;;
;;;If precision is reduced by the user it cannot be regained by this routine.
;;;The prior digits of higher precision are discarded and cannot be recovered
;;;except by the method they were originally obtained or other equal method.
;;;
;;;(uses UINT USTR)
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	9-19-95
;;;	Edited:		9-27-2005
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:adjnum, nint<br/>Requires:<a href="#uint">uint</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="adjsta"></a><a href="adjsta.lsp">adjsta.lsp</a>
    </td>
    <td>
    <PRE>
;;;Changes station numbers by specified amount.  Station format, "+" in
;;;in the number, is read and edited.  The new number is conformed to the
;;;station format to the user specified linear units of precision.
;;;
;;;Metric stations are sensed by the presence of three digits after the
;;;'+' and before the decimal.
;;;
;;;If precision is reduced by the user it cannot be regained by this routine.
;;;The prior digits of higher precision are discarded and cannot be recovered
;;;except by the method they were originally obtained or other equal method.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	9-02-94
;;;	Edited:		9-27-2005
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:adjsta<br/>Requires:<a href="#stait">stait</a>, <a href="#uint">uint</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="adjtag"></a><a href="adjtag.lsp">adjtag.lsp</a>
    </td>
    <td>
    <PRE>
;;;Moves plan & profile labels (tags) generated by GPDGN (does not require GPDGN)
;;;
;;; AUTHOR: HENRY C. FRANCIS
;;;  425 N. Ashe St.
;;;  Southern Pines, NC 28387
;;;              
;;;  All rights reserved without prejudice.
;;;
;;; Copyright: 3-3-2006
;;; Edited:    3-26-2009
;;;
;;; Requires: upoint.lsp
;;;
;;;****************************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:adjtag, c:swaptag<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#gvpno">gvpno</a>, <a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="adjustaeccpipenetworkobjects"></a><a href="adjustaeccpipenetworkobjects.LSP">adjustaeccpipenetworkobjects.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:	9/25/2015
;;;	   Edited:	9/25/2015
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:adjustaeccpipenetworkobjects<br/>Requires:<a href="#c3difodoc">c3difodoc</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="adx"></a><a href="ADX.LSP">adx.lsp</a>
    </td>
    <td>
    <PRE>
;;; CADALYST 04/07  Tip 2200: ADX.lsp 	Aligned Multiple Line Text 	(c) 2007 David Harrington 


    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:adx, dtr, getnearpt, rtd, text_angle<br/>Requires:<a href="#c3difodoc">c3difodoc</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="aeccpipename"></a><a href="aeccpipename.lsp">aeccpipename.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:aeccpipename, c:aecpipe, c:sewerrasterstyle, c:swrstyle<br/>Requires:<a href="#uint">uint</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="al"></a><a href="al.lsp">al.lsp</a>
    </td>
    <td>
    <PRE>
;;;Label the area of a closed polyline in ac., sq. yds., sq. ft.
;;;in either Acres, Square Yards or Square Feet.
;;;(It will also label open polylines according to the area
;;;that AutoCAD returns for them.)  All polylines to be measured
;;;for area should be closed to ensure the values obtained are
;;;actually the area intended.
;;;
;;;	AUTHOR: Henry C. Francis
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	2-4-92
;;;	Edited:		4-1-2014
;;;
;;;Removed (COMMAND...) and replaced with (VLAX-... ) functions and (ENTMAKE...)
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:al<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#gvpno">gvpno</a>, <a href="#pttxt">pttxt</a>, <a href="#ukword">ukword</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="alarm"></a><a href="alarm.lsp">alarm.lsp</a>
    </td>
    <td>
    <PRE>
;;;Turn AutoCAD and AutoLisp into an alarm clock. Use Doslib.
;;;Cannot use AutoCAD while alarm clock is running.
;;;(the idea is to wake yourself after a little sleep during those all nighters).
;;;Be sure not to charge for the time you were sleeping.
;;;Your PC speaker or external speakers must be functional and on.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:alarm<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#uint">uint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="align3d"></a><a href="align3d.lsp">align3d.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:align3d, c:alncirc3d, c:grdcirc3d<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#uint">uint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="all"></a><a href="all.lsp">all.lsp</a>
    </td>
    <td>
    <PRE>
;Make all lines vertical.  End with lowest Y is held, other end assumes X of held point.
;
;	Author:
;		Henry C. Francis
;		425 N. Ashe St.
;		Southern Pines, NC 28387
;
;	http://www.paracadd.com
;	All rights reserved.
;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:all<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#uint">uint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="allbnd"></a><a href="allbnd.lsp">allbnd.lsp</a>
    </td>
    <td>
    <PRE>
;;;Create script to draw Plines of plan viewport boundaries.
;;;Appends to existing script file so delete ALLBND.SCR and
;;;run ALLBND again in all sheets to update.
;;;*** ALLBND has been superceded by SHTBND.LSP ***
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:allbnd	()<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#uint">uint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="allfolders"></a><a href="allfolders.lsp">allfolders.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:allfolders, c:minfolders, c:mutcdfolder<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#uint">uint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="allpttxt"></a><a href="allpttxt.lsp">allpttxt.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: allpttxt<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#uint">uint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="alndata"></a><a href="alndata.lsp">alndata.lsp</a>
    </td>
    <td>
    <PRE>
;;;Used with GPDGN alignments (gravity or pressure pipelines) to output takeoff data.
;;;Requires <a href="http://www.mcneel.com/doslib.htm">Doslib</a>
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 8-30-1999
;;;	   Edited: 2-10-2007

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:alndata<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#gpdgn">gpdgn</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="angl"></a><a href="angl.lsp">angl.lsp</a>
    </td>
    <td>
    <PRE>
;;;Construct a line at an angle from selected line. UANGLE and ROTX are defun'd within.
;;;
;;;
;;;	AUTHOR: Henry C. Francis
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, N.C. 28387
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	5-14-93
;;;	Edited:		6-29-06
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: angl_error, c:angl<br/>Requires:<a href="#rotx">rotx</a>, <a href="#uangle">uangle</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="angline"></a><a href="angline.lsp">angline.lsp</a>
    </td>
    <td>
    <PRE>
;C:ANGL - place line at an angle to selection. Requires ROTX.LSP, UPOINT.LSP, UANGLE.LSP.
;
;	AUTHOR: Henry C. Francis
;		425 N. ASHE ST.
;		SOUTHERN PINES, N.C. 28387
;		All rights reserved without prejudice.
;
;	Copyright:	5-14-93
;	Edited:		5-4-00
;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:angl, c:angl90<br/>Requires:<a href="#rotx">rotx</a>, <a href="#uangle">uangle</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="annoscl"></a><a href="annoscl.lsp">annoscl.lsp</a>
    </td>
    <td>
    <PRE>
;;;Posted By Ian_Bryant on http://forums.autodesk.com/t5/Visual-LISP-AutoLISP-and-General/
;;;Topic title: "quicker alternative changing annotative scale in objectcale"
;;;on 04-14-2013 at 04:46 AM in reply to: boatman38
;;;original function/command name C:CH-ASC

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:annoscl<br/>Requires:<a href="#rotx">rotx</a>, <a href="#uangle">uangle</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="ansi_d_sheet"></a><a href="ansi_d_sheet.lsp">ansi_d_sheet.lsp</a>
    </td>
    <td>
    <PRE>
;;;CORP 34x22 (ANSI D Size Sheet) Title Block Xref attachment function.
;;;Attach at 0,0; scale=1:1; angle=0�.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Edited:	5-17-2016
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: ansi-d-sheet, copy-tb-to-project-folder<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#set_drive_letters">set_drive_letters</a>, <a href="#setstdpage">setstdpage</a>, <a href="#ukword">ukword</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="ansiappvp"></a><a href="ansiappvp.lsp">ansiappvp.lsp</a>
    </td>
    <td>
    <PRE>
;;;Creates plan viewport just inside our standard ANSI-D size sheet border.
;;;Includes a notch around our revision block.
;;;Creates profile viewport on grid indices over our standard ANSI-D size sheet border
;;;and profile grid block.
;;;
;;;Expects the border and grid block to be scaled 1:1 with origin at 0.0,0.0 per standard.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 2-6-2006
;;;	   Edited: 4-7-2009
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:ansiappvp<br/>Requires:<a href="#uint">uint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="ansiavp"></a><a href="ansiavp.lsp">ansiavp.lsp</a>
    </td>
    <td>
    <PRE>
;;;Creates viewport just inside our standard ANSI-A (portrait) size sheet border.
;;;
;;;Expects the border to be scaled 1:1 with origin at 0.0,0.0 per standard.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 3-14-2006
;;;	   Edited: 7-14-2016
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:ansiavp<br/>Requires:<a href="#uint">uint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="ansiavp_l"></a><a href="ansiavp_l.lsp">ansiavp_l.lsp</a>
    </td>
    <td>
    <PRE>
;;;Creates viewport just inside our standard ANSI-A (landscape) size sheet border.
;;;
;;;Expects the border to be scaled 1:1 with origin at 0.0,0.0 per standard.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 3-14-2006
;;;	   Edited: 7-14-2016
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:ansiavp_l<br/>Requires:<a href="#uint">uint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="ansibvp"></a><a href="ansibvp.lsp">ansibvp.lsp</a>
    </td>
    <td>
    <PRE>
;;;Creates viewport just inside our standard ANSI-B size sheet border.
;;;Includes a notch around our title block.
;;;
;;;Expects the border to be scaled 1:1 with origin at 0.0,0.0 per standard.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 2-6-2006
;;;	   Edited: 5-23-2013
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:ansibpl2, c:ansibvp<br/>Requires:<a href="#mymview">mymview</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="ansiddblppvp"></a><a href="ansiddblppvp.lsp">ansiddblppvp.lsp</a>
    </td>
    <td>
    <PRE>
;;;Creates double plan viewports just inside our standard ANSI-D size sheet border.
;;;Includes a notch around our revision block.
;;;Creates double profile viewports on grid indices over our standard ANSI-D size sheet border
;;;and profile grid block.
;;;
;;;Expects the border and grid block to be scaled 1:1 with origin at 0.0,0.0 per standard.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 2-6-2006
;;;	   Edited: 10-31-2008
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:ansiddblppvp<br/>Requires:<a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="ansidppvp"></a><a href="ansidppvp.lsp">ansidppvp.lsp</a>
    </td>
    <td>
    <PRE>
;;;Creates plan viewport just inside our standard ANSI-D size sheet border.
;;;Includes a notch around our revision block.
;;;Creates profile viewport on grid indices over our standard ANSI-D size sheet border
;;;and profile grid block.
;;;
;;;Expects the border and grid block to be scaled 1:1 with origin at 0.0,0.0 per standard.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 2-6-2006
;;;	   Edited: 6-1-2015
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:ansidpp2, c:ansidppvp<br/>Requires:<a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="ansidvp"></a><a href="ansidvp.lsp">ansidvp.lsp</a>
    </td>
    <td>
    <PRE>
;;;Creates viewport just inside our standard ANSI-D size sheet border.
;;;Includes a notch around our revision block.
;;;
;;;Expects the border to be scaled 1:1 with origin at 0.0,0.0 per standard.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 2-6-2006
;;;	   Edited: 5-2-2008
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:ansidpl2, c:ansidvp<br/>Requires:<a href="#mymview">mymview</a>, <a href="#uint">uint</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="ansidvpm"></a><a href="ansidvpm.lsp">ansidvpm.lsp</a>
    </td>
    <td>
    <PRE>
;;;Creates a 28.5" x 19.5" rectangular viewport with match lines inside our standard ANSI-D size sheet border.
;;;
;;;
;;;Expects the border to be scaled 1:1 with origin at 0.0,0.0 per standard.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 2-6-2006
;;;	   Edited: 10-2-2006
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:ansidvpm<br/>Requires:<a href="#mklayr">mklayr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="ansifppvp"></a><a href="ansifppvp.lsp">ansifppvp.lsp</a>
    </td>
    <td>
    <PRE>
;;;Creates plan viewport just inside NAVFAC standard ANSI-F size sheet border.
;;;Includes a notch around our revision block and title block.
;;;Creates profile viewport on grid indices over NAVFAC standard ANSI-F size sheet border
;;;and profile grid block.
;;;
;;;Expects the border and grid block to be scaled 1:1 with origin at 0.0,0.0 per standard.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 2-6-2006
;;;	   Edited: 2-6-2006
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:ansifppvp<br/>Requires:<a href="#mklayr">mklayr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="ansifvp"></a><a href="ansifvp.lsp">ansifvp.lsp</a>
    </td>
    <td>
    <PRE>
;;;Creates viewport just inside NAVFAC standard ANSI-F size sheet border.
;;;Includes a notch around our revision block and title block.
;;;
;;;Expects the border to be scaled 1:1 with origin at 0.0,0.0 per standard.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 2-6-2006
;;;	   Edited: 2-6-2006
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:ansifvp<br/>Requires:<a href="#mklayr">mklayr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="arch_d_sheet"></a><a href="arch_d_sheet.lsp">arch_d_sheet.lsp</a>
    </td>
    <td>
    <PRE>
;;;CORP 36x24 (ARCH D Size Sheet) Title Block Xref attachment function.
;;;Attach at 0,0; scale=1:1; angle=0�.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Edited:	2-28-2007
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: arch_d_sheet<br/>Requires:<a href="#mklayr">mklayr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="archdims"></a><a href="ARCHDIMS.lsp">archdims.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:archdims<br/>Requires:<a href="#mklayr">mklayr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="archdppvp"></a><a href="archdppvp.lsp">archdppvp.lsp</a>
    </td>
    <td>
    <PRE>
;;;Creates plan viewport just inside our standard ARCH-D size sheet border.
;;;Includes a notch around our revision block.
;;;Creates profile viewport on grid indices over our standard ARCH-D size sheet border
;;;and profile grid block.
;;;
;;;Expects the border and grid block to be scaled 1:1 with origin at 0.0,0.0 per standard.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 2-6-2006
;;;	   Edited: 2-28-2007
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:archdppvp<br/>Requires:<a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="archdvp"></a><a href="archdvp.lsp">archdvp.lsp</a>
    </td>
    <td>
    <PRE>
;;;Creates viewport just inside our standard ARCH-D size sheet border.
;;;Includes a notch around our revision block.
;;;
;;;Expects the border to be scaled 1:1 with origin at 0.0,0.0 per standard.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 2-6-2006
;;;	   Edited: 2-28-2007
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:archdvp<br/>Requires:<a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="archdvpm"></a><a href="archdvpm.lsp">archdvpm.lsp</a>
    </td>
    <td>
    <PRE>
;;;Creates a 30.5" x 21.5" rectangular viewport with match lines inside our standard ARCH-D size sheet border.
;;;
;;;
;;;Expects the border to be scaled 1:1 with origin at 0.0,0.0 per standard.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 2-6-2006
;;;	   Edited: 2-28-2007
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:archdvpm<br/>Requires:<a href="#mklayr">mklayr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="archldrs"></a><a href="ARCHLDRS.LSP">archldrs.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:archldrs<br/>Requires:<a href="#mklayr">mklayr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="arclineinters"></a><a href="arclineinters.lsp">arclineinters.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:alint<br/>Requires:<a href="#mklayr">mklayr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="arctopl"></a><a href="arctopl.lsp">arctopl.lsp</a>
    </td>
    <td>
    <PRE>
;;;Change arcs into polylines.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:	10-1-98
;;;	Edited:		10-1-98
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:arctopl<br/>Requires:<a href="#mklayr">mklayr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="aros"></a><a href="aros.lsp">aros.lsp</a>
    </td>
    <td>
    <PRE>
;;;Entmakes the blocks DIMARO and LDRARO if they do not exist.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:	8-18-99
;;;	Edited:		8-18-99
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:aros<br/>Requires:<a href="#mklayr">mklayr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="ascii"></a><a href="ascii.lsp">ascii.lsp</a>
    </td>
    <td>
    <PRE>
;;;Writes ASCII character set to the screen and to a file.

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:ascii<br/>Requires:<a href="#mklayr">mklayr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="asin"></a><a href="asin.lsp">asin.lsp</a>
    </td>
    <td>
    <PRE>
;;;subroutine for arcsine.  requires a sine value as input with the function call
;;;COND traps for limits of function (0, 1, -1) and returns the correct value.

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: asin<br/>Requires:<a href="#mklayr">mklayr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="atext"></a><a href="atext.lsp">atext.lsp</a>
    </td>
    <td>
    <PRE>
;;;Append TEXT to strings
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;	Copyright:	9/9/98
;;;	Edited:		9/9/98
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:atext<br/>Requires:<a href="#ukword">ukword</a>, <a href="#ustr">ustr</a>, <a href="#uutils">uutils</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="atomsdiff"></a><a href="atomsdiff.lsp">atomsdiff.lsp</a>
    </td>
    <td>
    <PRE>
;;;Run once before a suspect event and once after it to see if the atoms-family has changed.

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:atomsdiff<br/>Requires:<a href="#ukword">ukword</a>, <a href="#ustr">ustr</a>, <a href="#uutils">uutils</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="attang"></a><a href="attang.lsp">attang.lsp</a>
    </td>
    <td>
    <PRE>
;;;Change attributes angles
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  5-26-2010
;;;	   Edited:  5-26-2010

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:attang<br/>Requires:<a href="#uangle">uangle</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="attcol"></a><a href="attcol.lsp">attcol.lsp</a>
    </td>
    <td>
    <PRE>
;;;Change attribute's thickness (attributes and text with thickness other than zero may
;;;be hidden by solids, 3dfaces, circles or any other surface upon hidden line removal).
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  3-16-2001
;;;	   Edited:  9-26-2002

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:attcol<br/>Requires:<a href="#uint">uint</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="atted1"></a><a href="atted1.lsp">atted1.lsp</a>
    </td>
    <td>
    <PRE>
;;;Edit attributes or text in blocks one at a time (sequentially)
;;;Any TEXT entity edits are applied to all blocks because they are actually edits to the block definition.
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 8/6/2007
;;;		   EDITED: 8/6/2007
;;;
;;;Requires: UKWORD.LSP
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: atted1_error, c:atted1, c:ea1, edit_str, fun, next_attr<br/>Requires:<a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="atthk"></a><a href="atthk.lsp">atthk.lsp</a>
    </td>
    <td>
    <PRE>
;;;Change attribute's thickness (attributes and text with thickness other than zero may
;;;be hidden by solids, 3dfaces, circles or any other surface upon hidden line removal).
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  3-16-2001
;;;	   Edited:  3-16-2001

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:atthk<br/>Requires:<a href="#ureal">ureal</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="attht"></a><a href="attht.lsp">attht.lsp</a>
    </td>
    <td>
    <PRE>
;;;Change attribute's height
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  3-16-2001
;;;	   Edited:  1-25-2006

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:attht<br/>Requires:<a href="#ukword">ukword</a>, <a href="#ureal">ureal</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="atthw"></a><a href="atthw.lsp">atthw.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:
;;;	   Edited:
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:atthw, c:showatthw<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="attincr"></a><a href="attincr.lsp">attincr.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	AUTHOR:
;;;		HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;
;;;		All rights reserved.
;;;	web: http://paracadd.com/
;;;
;;;  Copyright:
;;;     Edited:
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:attincr<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="attr2txt"></a><a href="attr2txt.lsp">attr2txt.lsp</a>
    </td>
    <td>
    <PRE>
;;;Convert attribute definition entities (attdef) into text entities.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://paracadd.com
;;;	All rights reserved.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:attr2txt<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="attupd"></a><a href="attupd.lsp">attupd.lsp</a>
    </td>
    <td>
    <PRE>
;;;Attribute update subroutine (attupd [blockname] [attribname] [newvalue])
;;;Used extensively in scripts to rapidly change title block fill-ins.
;;;
;;;	1-15-2004 added var [testvalue] - user must (setq testvalue <users value>).
;;;	If [testvalue] is not NIL AND not eq current [attribname] value the current
;;;	[attribname] value remains unchanged.
;;;	If [testvalue] is NIL the program will update [attribname] to [newvalue]
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://paracadd.com
;;;	All rights reserved.
;;;
;;;       Copyright:      1997-2010
;;;       Edited:         7-8-2010
;;;
;;; 6/29/2010:	Added automatic update for detail/section call-out and title bubbles if the user is updating "our" title block sheet number.
;;;		This can be easily edited for "your" titleblock sheet number within the first dozen or so lines of code below.
;;;
;;;		Note: 	"Our" routines automate layer creation for standard symbols.  Layers are in the CAD Layer Guidelines (CLG) format
;;;			where the "minor group" specifies a viewport number in the form "VI##".  With this designation, bubbles in model space
;;;			are matched with their parent viewport's viewport number.  The viewport number should only exist on one sheet (Layout).
;;;
;;;			Model space annotation is associated with its layout using the viewport number indicated by the CLG layer name.
;;;			It is important to never use the same viewport number on different sheet layout tabs.  It is also advisable to use
;;;			a different viewport number for each viewport even on the same layout.  This way annotation can be isolated to display
;;;			in just one viewport which allows viewports to show the same model area but have different annotation.
;;;			It is preferrable to put all annotation within modelspace of the viewport that it pertains to.  This keeps the annotation
;;;			with the design regardless of pans or zooms.  A single text style per font used, each with a height of zero, when used in
;;;			conjunction with our annotation routines (TNOTE, MLT, REMLT, DTTL, BSCL, etc.) automatically assures that text height is
;;;			visually the same in all viewports regardless of their scale.  Dimscale=0 and these same text styles tells AutoCAD to do
;;;			the same thing for dimensions (which is where we got the idea to do it within our annotation routines).  This greatly
;;;			simplifies the task of setting text heights and ensuring consistency in our annotation across all drawings.
;;;
;;;		"Our routines":
;;;			MYMVIEW - creates viewports on the appropriate "next" viewport number layer, a CLG non-plot layer (?-VI##-NPLT) which
;;;				  is set to not plot the viewport boundary.
;;;			TNOTE   - typical note catalog and placement routine.
;;;			MLT     - single note placement (transparently used by TNOTE to place the selected note)
;;;			REMLT   - reformat and/or relocate (re-place) existing notes.
;;;			DTTL    - place formatted detail title and scale annotation with bubble on the appropriate viewport number (read from the viewport layer).
;;;			BSCL    - place barscales (reads units to determine civil or architectural styles, civil are blocks, architectural are dynamically placed).
;;;			ISOVP   - uses VPLAYER to freeze CLG layers in the format ?-VI##-???? which do not match the viewport number.
;;;
;;;****************************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: attupd, attupd_core, select_core<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="attupdm"></a><a href="attupdm.lsp">attupdm.lsp</a>
    </td>
    <td>
    <PRE>
;;;Multiple attribute update subroutine (attupd [blockname] [attribname] [newvalue])
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;       Copyright:      4-22-97
;;;       Edited:         10-1-98
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: attupdm<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="attupdt"></a><a href="ATTUPDT.lsp">attupdt.lsp</a>
    </td>
    <td>
    <PRE>
;;;Attribute update subroutine (attupdt [blockname] [attribname] [newvalue] [testvalue])
;;;Used extensively in scripts to rapidly change title block fill-ins.
;;;
;;;	1-15-2004 added var [testvalue] - user must (setq testvalue <users value>).
;;;	If [testvalue] is not NIL AND not eq current [attribname] value the current
;;;	[attribname] value remains unchanged.
;;;	If [testvalue] is NIL the program will update [attribname] to [newvalue]
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://paracadd.com
;;;	All rights reserved.
;;;
;;;       Copyright:      1997-2004
;;;       Edited:         1-15-2004
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: attupdt<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="attxtj"></a><a href="attxtj.lsp">attxtj.lsp</a>
    </td>
    <td>
    <PRE>
;Modify the text justification of a selection set of attributes. (uses UKWORD UPOINT)
;The only input required is the desired text justification and selection of the
;attributes to modify.  There is no need to worry about selecting non-attribute
;entities because they will be automatically filtered out of the selection set.
;DO NOT select more than one "common note group".  All of the attributes selected
;are assumed to belong to such a group and they ALL will be justified to the same
;reference position.
;
;	AUTHOR: HENRY C. FRANCIS
;		425 N. ASHE ST.
;		SOUTHERN PINES, NC 28387
;              
;		All rights reserved without prejudice.
;
;	Copyright:	7-12-94
;	Edited:		11-26-95
;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:attxtj<br/>Requires:<a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="atwid"></a><a href="atwid.lsp">atwid.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 
;;;		   EDITED: 
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:atwid<br/>Requires:<a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="autod"></a><a href="autod.lsp">autod.lsp</a>
    </td>
    <td>
    <PRE>
;;;Collect survey points from *.PRN files which have two digit numbers as description keys
;;;for automatic descriptions in SoftDeSK.  The resultant output file should be imported in
;;;overwrite mode to update point descriptions
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://paracadd.com
;;;	All rights reserved.
;;;
;;;       Copyright: 1/19/94
;;;	     Edited: 1/25/06
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:autod<br/>Requires:<a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="autodpifix"></a><a href="autodpifix.lsp">autodpifix.lsp</a>
    </td>
    <td>
    <PRE>
;;;Uses DOSLIB and IrfanView, both of which are available to download for free from their respective authors
;;;Robert McNeel & Associates owns Doslib (www.en.na.mcneel.com/doslib.htm), Irfan Skiljan owns IrfanView (www.irfanview.com)
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 
;;;		   EDITED: 
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: autodpifix<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#have_irfanview">have_irfanview</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="autodsi"></a><a href="autodsi.lsp">autodsi.lsp</a>
    </td>
    <td>
    <PRE>
;;;Collect survey points from *.TXT files which have two digit numbers as description keys
;;;for automatic descriptions in SoftDeSK.  The resultant output file should be imported in
;;;overwrite mode to update point descriptions.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://paracadd.com
;;;	All rights reserved.
;;;
;;;       Copyright: 1/19/94
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:autod<br/>Requires:<a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="autotags"></a><a href="AUTOTAGS.LSP">autotags.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;; Author:
;;;  Henry C. Francis
;;;  425 N. Ashe St.
;;;  Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;; All rights reserved.
;;;
;;; Copyright:  2010
;;;    Edited:  2-8-2010
;;;****************************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: autotags_error, c:autotags, c:edtags, tag_cond<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#dimscl">dimscl</a>, <a href="#getstyle">getstyle</a>, <a href="#gp_laysets">gp_laysets</a>, <a href="#gpdgn">gpdgn</a>, <a href="#gvpno">gvpno</a>, <a href="#txtsize">txtsize</a>, <a href="#ukword">ukword</a>, <a href="#ustr">ustr</a>, <a href="#vpbnd">vpbnd</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="autowhodunit"></a><a href="autowhodunit.LSP">autowhodunit.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: autowhodunit<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#attupd">attupd</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="backup"></a><a href="backup.lsp">backup.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 1997
;;;	   Edited: 12-9-2016
;;;****************************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:backup, filedate-real-yr<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="bandj"></a><a href="bandj.lsp">bandj.lsp</a>
    </td>
    <td>
    <PRE>
;Automatic placement of bore & jack casing pipe in profile.
;
;
;	AUTHOR: HENRY C. FRANCIS
;		425 N. ASHE ST.
;		SOUTHERN PINES, NC 28387
;		All rights reserved without prejudice.
;
;	Copyright:	1-30-96
;	Edited:		1-30-96
;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:bandj<br/>Requires:<a href="#mklayr">mklayr</a>, <a href="#dimscl">dimscl</a>, <a href="#uint">uint</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="basevars"></a><a href="basevars.lsp">basevars.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:basevars<br/>Requires:<a href="#mklayr">mklayr</a>, <a href="#dimscl">dimscl</a>, <a href="#uint">uint</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="batlayplt"></a><a href="batlayplt.lsp">batlayplt.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: batlayplt<br/>Requires:<a href="#autodpifix">autodpifix</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#lbl">lbl</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="bcen"></a><a href="bcen.lsp">bcen.lsp</a>
    </td>
    <td>
    <PRE>
;;;Exercise in polyline bulge (arc) math to determin a point for text
;;;on the arc and the angle tangent to that point.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: bcen<br/>Requires:<a href="#autodpifix">autodpifix</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#lbl">lbl</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="bdline"></a><a href="bdline.lsp">bdline.lsp</a>
    </td>
    <td>
    <PRE>
;;;Places a polyline or lines by bearing and distance.
;;;Input N06d05'04.32"W bearing format and distance with no need to specify the quadrant.
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:	10-31-2014
;;;	   Edited:	10-31-2014
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:bdline<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#ureal">ureal</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="bflg"></a><a href="bflg.lsp">bflg.lsp</a>
    </td>
    <td>
    <PRE>
;;;Place a block named BFLG near the end of a line. (flange, a pipe fitting part)
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	All rights reserved.
;;;
;;;	Copyright: 8-6-00
;;;	   Edited: 8-6-00
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:bflg<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#mklayr">mklayr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="bl"></a><a href="bl.lsp">bl.lsp</a>
    </td>
    <td>
    <PRE>
;;;Place a detail call bubble with a leader and text description
;;;in the drawing.  The leader may be single or multiple lines
;;;at any angle.  The bubble will be placed with the center along
;;;the line and the edge of the bubble coincident with the end of
;;;the leader.  If a description is given a description line will
;;;be added horizontally in line with the center of the bubble and
;;;opposite of the leader.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	9-23-93
;;;	Edited:		2-10-2011
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:bl<br/>Requires:<a href="#bub">bub</a>, <a href="#mklayr">mklayr</a>, <a href="#getstyle">getstyle</a>, <a href="#gvpno">gvpno</a>, <a href="#txtsize">txtsize</a>, <a href="#upoint">upoint</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="bldgpl"></a><a href="bldgpl.LSP">bldgpl.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:	10-29-2014
;;;	   Edited:	12-20-2016
;;;
;;;****************************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:bldg, c:bldgpl<br/>Requires:<a href="#setbldg">setbldg</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="blkang"></a><a href="blkang.lsp">blkang.lsp</a>
    </td>
    <td>
    <PRE>
;;;Rerotate a selection set of entities to be horiz to the view.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;	Copyright:	6/28/2007
;;;	Edited:		7/5/2007
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:blkang<br/>Requires:<a href="#uangle">uangle</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="blkcolt"></a><a href="blkcolt.lsp">blkcolt.lsp</a>
    </td>
    <td>
    <PRE>
;;;Force all block definition entities whose color or linetype is neither BYLAYER or BYBLOCK
;;;to have their nonconforming color and/or linetype set to BYLAYER.
;;;
;;;Force all embedded text without thickness to have a thickness of 1.  (So it can be hidden)
;;;
;;;Blocks exempt from processing are: XREFs, "ADCADD_ZZ", "DWGSTAMP", and "DWG-EDIT-LOG"
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  1/04/2001
;;;	   Edited:  4/11/2008

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:blkcolt<br/>Requires:<a href="#uangle">uangle</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="blkguts"></a><a href="blkguts.lsp">blkguts.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:blkguts<br/>Requires:<a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="blklay"></a><a href="blklay.lsp">blklay.lsp</a>
    </td>
    <td>
    <PRE>
;;;Writes a listing of block names and the layers they use to BLKLAY.LST
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:blklay<br/>Requires:<a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="blklst"></a><a href="blklst.lsp">blklst.lsp</a>
    </td>
    <td>
    <PRE>
;;;Construct a list of entity lists contained in a block.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:blklst<br/>Requires:<a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="blkran"></a><a href="blkran.lsp">blkran.lsp</a>
    </td>
    <td>
    <PRE>
;;;Modify the rotation angle of a selection set of insert entities. (uses UREAL)
;;;       The only input required is the desired rotation angle and selection of
;;;       inserts to modify.  There is an option to set the angle horizontal to
;;;       the view.  There is no need to worry about not selecting non-inserts
;;;       because they will be automatically filtered out of the
;;;       selection set.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;	Copyright:	6-1-2008
;;;	Edited:		6-1-2008
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:blkran<br/>Requires:<a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="blkscl"></a><a href="blkscl.lsp">blkscl.lsp</a>
    </td>
    <td>
    <PRE>
;Scale Block occurances, one or many.
;
;	AUTHOR: Henry C. Francis
;		425 N. Ashe St.
;		Southern Pines, NC 28387
;		All rights reserved without prejudice.
;
;	Copyright:	12-22-94
;	Edited:		12-22-94
;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:blkscl<br/>Requires:<a href="#ureal">ureal</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="blkxport"></a><a href="blkxport.lsp">blkxport.lsp</a>
    </td>
    <td>
    <PRE>
;;;Exports all non-Xref, non-Xref dependent, and non-anonymous blocks to a subfolder of the current drawing's path or optionally to a network folder.
;;;The local subfolder is named 'Blocks' which is created if it does not exist.  You can change this in the code, just replace "Blocks" with your subfolder name.
;;;The network folder is hard coded into the routine and can be any path you require.  It is referred to as "Global" in the options.
;;;There is a "standard block list" symbol name = std_blk_lst that consists of strings which are passed to (WCMATCH str) and upon a match the block in the current file
;;;is not written out.  This is to enable protection of blocks you have developed as masters or standards from being overwritten by this function.
;;;
;;;
;;;Requires DOSLIB from McNeel & Associates
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 10-9-2007
;;;		   EDITED: 7-3-2013
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: blkxport_error, c:blkxport, c:purgeblocks<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#dimaro">dimaro</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="blockedit"></a><a href="blockedit.lsp">blockedit.lsp</a>
    </td>
    <td>
    <PRE>
;;;==================================================================================================

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: funfunfunfun<br/>Requires:<a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="bookpagenos"></a><a href="bookpagenos.lsp">bookpagenos.lsp</a>
    </td>
    <td>
    <PRE>
;;;This command is specifically to adjust attribute positions in existing instances of the Annotation Template (map data block) "ACMAP_ANN_TEMPLATE_Parcel Label"
;;;The original construction has background masks and was spaced too closely.  When parentheses or similar characters protrude above or below the
;;;normal characters the background masking covered parts of the atttribute values above and below it
;;;There are two text entities in the block that were repositioned using the block editor which changed their positions in all instances.
;;;This command was necessary to move the attributes in all existing instances.
;;;There is one attribute tagged "PHYSADDRES" which was kept in place while the others were moved away from it (nothing was done with it at all).

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:bookpagenos<br/>Requires:<a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="bplxl"></a><a href="bplxl.lsp">bplxl.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	AUTHOR:
;;;		HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;
;;;		All rights reserved.
;;;	web: http://paracadd.com/
;;;
;;;  Copyright:
;;;     Edited:
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:bplxl<br/>Requires:<a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="bproj"></a><a href="bproj.lsp">bproj.lsp</a>
    </td>
    <td>
    <PRE>
;;;Sets the list of files to plot based on CDMNDX.TXT for the project.
;;;Calls BPLOT once the list is made.  (CDMNDX.TXT is written by CDMNDX.LSP)
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  2-13-2001
;;;	   Edited:  10-1-2003

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:bproj<br/>Requires:<a href="#bplot2k">bplot2k</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="bran"></a><a href="bran.lsp">bran.lsp</a>
    </td>
    <td>
    <PRE>
;Modify the rotation angle of a selection of block entities.
;The only input required is the desired
;rotation angle and selection of the blocks to modify.
;
;	AUTHOR:
;		HENRY C. FRANCIS
;		425 N. ASHE ST.
;		SOUTHERN PINES, NC 28387
; 
;		All rights reserved without prejudice.
;       Copyright:  8-30-95
;          Edited:  8-30-95
;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:bran<br/>Requires:<a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="brat"></a><a href="BRAT.lsp">brat.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	All rights reserved.
;;;
;;;	Copyright:  
;;;	   Edited:

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: brat_error, c:brat, c:bratw, c:brmid, c:brwid, c:setbrwid<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#upoint">upoint</a>, <a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="breal"></a><a href="breal.lsp">breal.lsp</a>
    </td>
    <td>
    <PRE>
;;;Change a number in (m)any text string(s) by a numeric value and
;;;specify or change precision (decimal places).
;;;(uses UINT.LSP, USTR.LSP)
;;;
;;;Note: Reduced precision cannot be restored to greater precision
;;;      except with UNDO immediately after it has been reduced.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	9-19-95
;;;	Edited:		7-23-2001
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:breal<br/>Requires:<a href="#uint">uint</a>, <a href="#ukword">ukword</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="brkl"></a><a href="brkl.lsp">brkl.lsp</a>
    </td>
    <td>
    <PRE>
;;;Place breakline symbol as a polyline.
;;;
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;	Copyright:	6-16-94
;;;	Edited:		6-28-2010
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:brkl<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#gvpno">gvpno</a>, <a href="#mklayr">mklayr</a>, <a href="#set_mjrg">set_mjrg</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="brot"></a><a href="brot.lsp">brot.lsp</a>
    </td>
    <td>
    <PRE>
;;;Change rotation angles of selected blocks.
;;;If a block has attributes it will be rotated using the command line.
;;;Otherwise, the rotation angle will be modified using (entmod ...)
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;     Copyright:	9-28-2010
;;;        Edited:	9-28-2010
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:brot<br/>Requires:<a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="browser_help"></a><a href="browser_help.lsp">browser_help.lsp</a>
    </td>
    <td>
    <PRE>
;;;Obsolete, see helphtm.lsp
;;;
;;;	AUTHOR:
;;;		HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;
;;;		All rights reserved.
;;;		http://paracadd.com/
;;;
;;;  Copyright:	1/27/2002
;;;     Edited:	4/23/2007
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: browser_help<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="bs"></a><a href="bs.lsp">bs.lsp</a>
    </td>
    <td>
    <PRE>
;;;Rescale occurances of a block about insertion points.
;;;
;;;	AUTHOR: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	12-22-94
;;;	Edited:		3-17-95
;;;	Edited:		12-6-2007 autoloads UREAL and USTR if not loaded
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:bs<br/>Requires:<a href="#ureal">ureal</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="bscl"></a><a href="bscl.lsp">bscl.lsp</a>
    </td>
    <td>
    <PRE>
;;;Place engineering or architectural bar scales by dimscale.
;;;
;;;	Uses blocks named nBARS where n=dimscale as integer.
;;;	for Decimal (Engineering) linear units.
;;;
;;;	Creates the U.S. Army Corps of Engineers standard
;;;	bar scale for Architectural units based upon dimscale.
;;;
;;;
;;;	AUTHOR: Henry C. Francis
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, N.C. 28387
;;;		All rights reserved without prejudice.
;;;		http://paracadd.com
;;;
;;;	Copyright:	2-4-92
;;;	Edited:		5-5-2007
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:bscl, make_bscl_group, make_line, make_text<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#gvpno">gvpno</a>, <a href="#make_layer_ent">make_layer_ent</a>, <a href="#mklayr">mklayr</a>, <a href="#set_mjrg">set_mjrg</a>, <a href="#txtsize">txtsize</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="bstr"></a><a href="bstr.lsp">bstr.lsp</a>
    </td>
    <td>
    <PRE>
;;;Break a text string into two strings and automatically.
;;;Places the 'cut' string above or below the first at the same
;;;justification, etc. with 1/2 text height space between.
;;;Optionally: Adds a line of text above or below existing text.
;;;
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;     Copyright: 1995
;;;        Edited: 6-29-2010
;;;
;;;	6-29-2010	Added commands FW2LW/F2L and LW2FW/L2F commands
;;;			(1st word to last word; and, last word to 1st word commands)
;;;			These will move the first or last word of a text string to
;;;			the last or first word of another string respectively.
;;;
;;;	10/16/2013	Added comma-up (CU) and comma-down (CD) options and commands CU & CD
;;;			breaks/stacks strings at existing commas either up or down from original
;;;
;;;****************************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: brk-comma, c:bstr, c:cd, c:cu, c:f2l, c:fw2lw, c:fwtolw, c:l2f, c:lw2fw, c:lwtofw, c:swaptext, c:swtxt, sel2textents<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#dimscl">dimscl</a>, <a href="#ukword">ukword</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="bub"></a><a href="bub.lsp">bub.lsp</a>
    </td>
    <td>
    <PRE>
;;;Place a detail bubble, single or multiple references.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	7-17-95
;;;	Edited:		2-10-2011
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:bub<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#getstyle">getstyle</a>, <a href="#gvpno">gvpno</a>, <a href="#mklayr">mklayr</a>, <a href="#set_mjrg">set_mjrg</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="bubfix"></a><a href="bubfix.lsp">bubfix.lsp</a>
    </td>
    <td>
    <PRE>
;;;Replaces dumb "circle-line-text" CDM bubbles with block versions of CDM bubbles.
;;;Retains existing fill-in info.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  
;;;	   Edited:  

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:bubfix	()<br/>Requires:<a href="#bubfix">bubfix</a>, <a href="#dimscl">dimscl</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="bubn"></a><a href="BUBN.lsp">bubn.lsp</a>
    </td>
    <td>
    <PRE>
;;;Place a Magnetic North Symbol (block) in the drawing at any orientation.
;;;(uses UPOINT)
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	5-27-94
;;;	Edited:		2-10-2011
;;;
;;;^C^C(c:svlayr)(load"gvpno")(gvpno)(setq mjrg "C" llt "-" colr "2" modf "SYMB")(c:mklayr)(if C:BUBN nil (load"BUBN"))(C:BUBN)(c:rslayr)
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:bubn<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#gvpno">gvpno</a>, <a href="#mklayr">mklayr</a>, <a href="#set_mjrg">set_mjrg</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="bubupd"></a><a href="bubupd.lsp">bubupd.lsp</a>
    </td>
    <td>
    <PRE>
;;;bubble update subroutine (bubupd [blockname] [old_sdname] [new_sdname] [old_callon] [new_callon])
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;       Copyright:      2-19-2004
;;;       Edited:         2-19-2004
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: bubupd<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#gvpno">gvpno</a>, <a href="#mklayr">mklayr</a>, <a href="#set_mjrg">set_mjrg</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="bulgebypnts"></a><a href="bulgebypnts.lsp">bulgebypnts.lsp</a>
    </td>
    <td>
    <PRE>
;;;This function calculates the bulge factor necessary to create a tangent POLYLINE arc segment
;;;from anglept to afterpt.  The line segment from beforept to anglept will tangent to the arc.
;;;A temporary UCS is set with its X-axis along beforept and anglept.  It is used with the TRANS
;;;function to get the tangent of the chord between anglept and afterpt. (TRANS afterpt 0 1) returns
;;;a point which yeilds [Y/(X-(DISTANCE between beforept and anglept))] = [rise/run] = tangent.
;;;A negative value indicates the arc sweeps clockwise, positive indicates a counter-clockwise sweep.
;;;To modify an existing vertex, substitute (ASSOC 42 <vertex-entity-definition>) with (CONS 42 arcbulge)
;;;
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:	10-9-2014
;;;	   Edited:	10-9-2014
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: bulgebypnts<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#gvpno">gvpno</a>, <a href="#mklayr">mklayr</a>, <a href="#set_mjrg">set_mjrg</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="bulgeit"></a><a href="bulgeit.lsp">bulgeit.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 	when created
;;;		   EDITED:	10-24-2013
;;;
;;;******************************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:bulgeit, c:unbulgeit<br/>Requires:<a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="byline"></a><a href="byline.lsp">byline.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:
;;;	   Edited:
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:bulgeit, c:unbulgeit<br/>Requires:<a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="c3d"></a><a href="C3D.lsp">c3d.lsp</a>
    </td>
    <td>
    <PRE>
;~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~
;C3d.lsp
;hacked together by Juan Villarreal
;;Thanks to Joe Burke for his ConvTo3d routine, modified to be used as a function.
;
;;Hacked further by Henry C. Francis to only set the elevation of the existing polylines to match the OD elevation.
;;No 3D conversion is done.
;;in my case fvals contains the value of the "Elevation" data field as the second item in the list (fvals is the list)
;*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~
;|

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: @delta, 3d_angw1w2, c:c3d, convto3d, entmakelwpline, n, normalangle, trace3dpline, traceace, traceline, traceobject, tracepline, tracespline, tracetolwplineobj, tracetolwplinepoint, tracetype1pline, tracetype23pline, ucszdir, zclosed<br/>Requires:<a href="#3d">3d</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="c3difodoc"></a><a href="c3difodoc.lsp">c3difodoc.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 7/5/2011
;;;		   EDITED: 4/17/2014
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c3difodoc<br/>Requires:<a href="#errortrap">errortrap</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="calctxt"></a><a href="calctxt.lsp">calctxt.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: calctxt<br/>Requires:<a href="#errortrap">errortrap</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="cdfcon"></a><a href="cdfcon.lsp">cdfcon.lsp</a>
    </td>
    <td>
    <PRE>
;;;Tool for converting a windows 3.1 card file (in prode.txt) to Comma Delimited Format (CDF)
;;;for import to other applications.  Options for fields are:
;;;"Loctn Proj DEsc Client DAte Engr DGnr DWgsz Nodwgs noTes"
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;       Copyright:      3-17-97
;;;       Edited:         3-17-97

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: assign_line, c:cdfcon	(/	<br/>Requires:<a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="ce"></a><a href="ce.lsp">ce.lsp</a>
    </td>
    <td>
    <PRE>
;;;Change selection set color, linetype to BYLAYER and lineweight to Default.
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 6-7-94
;;;>		   EDITED: 01-08-2007
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:ce<br/>Requires:<a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="ce2b"></a><a href="ce2b.lsp">ce2b.lsp</a>
    </td>
    <td>
    <PRE>
;;;Change entity selection set color, linetype, and/or lineweight to BYLAYER.
;;;
;;;
;;;	AUTHOR: Henry C. Francis
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, N.C. 28387
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	6-7-94
;;;	Edited:		1-8-2007
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:ce2b<br/>Requires:<a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="cec"></a><a href="cec.lsp">cec.lsp</a>
    </td>
    <td>
    <PRE>
;Change entity color, one or many
;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:cec<br/>Requires:<a href="#uint">uint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="cescs"></a><a href="cescs.lsp">cescs.lsp</a>
    </td>
    <td>
    <PRE>
;;;Place a US Army Corps of Engineers or a "Standard" Section Cut Symbol
;;;in the drawing at any orientation.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;		All rights reserved without prejudice.
;;;	Copyright:	3-10-93
;;;	Edited:		2-10-2011
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:scs<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#mklayr">mklayr</a>, <a href="#set_mjrg">set_mjrg</a>, <a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="cgpt"></a><a href="cgpt.lsp">cgpt.lsp</a>
    </td>
    <td>
    <PRE>
;;;Requires Land Desktop - "AeccXUiLand.AeccApplication.6.0"

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:cgpt<br/>Requires:<a href="#c3difodoc">c3difodoc</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="chain"></a><a href="chain.lsp">chain.lsp</a>
    </td>
    <td>
    <PRE>
;;;Place a custom linetype as an anonymous block. (I call it chain) 
;;;The block entity is not placed in
;;;the drawing until the user terminates the input with a return
;;;supplied to the "next point" prompt.
;;;
;;;	AUTHOR:
;;;		HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	6-7-95
;;;	Edited:		07-10-2009
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:chain<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#upoint">upoint</a>, <a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="changesupportpath"></a><a href="Changesupportpath.lsp">changesupportpath.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:changesupportpath<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#upoint">upoint</a>, <a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="chassoc"></a><a href="chassoc.lsp">chassoc.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: April 10, 2008
;;;		   EDITED: April 10, 2008
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: chassoc<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#upoint">upoint</a>, <a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="check_for_doslib"></a><a href="check_for_doslib.lsp">check_for_doslib.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: check_for_doslib<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#upoint">upoint</a>, <a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="chgplw1"></a><a href="chgplw1.lsp">chgplw1.lsp</a>
    </td>
    <td>
    <PRE>
;Change the width of a selected set of polylines as a group
;with only one command sequence.
;
;
;	AUTHOR: Henry C. Francis
;		425 N. ASHE ST.
;		SOUTHERN PINES, N.C. 28387
;		All rights reserved without prejudice.
;
;	Copyright:	7-22-91
;	Edited:		7-22-91
;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:cplw<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#upoint">upoint</a>, <a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="chkapps"></a><a href="chkapps.lsp">chkapps.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:chkapps, c:killallapps, c:killwipeoutxdata, c:lmankill, c:purgeappids<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#upoint">upoint</a>, <a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="chkctabname"></a><a href="chkctabname.lsp">chkctabname.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: chkctabname<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="chkkwds"></a><a href="CHKKWDS.LSP">chkkwds.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: chkkwds<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="chklasp"></a><a href="chklasp.lsp">chklasp.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	All rights reserved.
;;;
;;;	Copyright:  
;;;	   Edited:  

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:chklasp<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="chkslope"></a><a href="chkslope.lsp">chkslope.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 
;;;		   EDITED: 
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:chkslope, fix_no, get_inv_no, get_sta_no<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="chkxrefsizes"></a><a href="chkxrefsizes.lsp">chkxrefsizes.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 
;;;		   EDITED: 
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: chkxrefsizes<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="cirad"></a><a href="cirad.lsp">cirad.lsp</a>
    </td>
    <td>
    <PRE>
;Modify the radius of a selection set of circles. (uses UREAL)
;The only input required is the desired radius and selection.
;There is no need to worry about not selecting non-circle entities
;because they will be automatically filtered out of the
;selection set.
;
;	AUTHOR: HENRY C. FRANCIS
;	        425 N. Ashe Street
;	        Southern Pines, NC 28387
;              
;	All rights reserved without prejudice.
;
;	Copyright:	6-7-94
;	Edited:	5-14-98
;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:cirad<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="cirtans"></a><a href="cirtans.lsp">cirtans.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 7/24/2009
;;;		   EDITED: 7/24/2009
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:cirtans<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="civltype"></a><a href="civltype.lsp">civltype.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:civltypes<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="cl"></a><a href="CL.LSP">cl.lsp</a>
    </td>
    <td>
    <PRE>
;Constructs a pair of center lines through the center of a circle.
; ******************************************************************
;                          CL.LSP
;
;    By Simon Jones    Autodesk Ltd , London      March 1987
;
;  This macro constructs a pair of center lines through the
;  center of a circle. The lines are put on a layer "CL".
;
; ******************************************************************


    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:cl, clerr<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="cl_f_sheet"></a><a href="cl_f_sheet.lsp">cl_f_sheet.lsp</a>
    </td>
    <td>
    <PRE>
;;;Camp Lejeune 40x28 (ANSI F Size Sheet) Title Block Xref attachment function.
;;;Attach at 0,0; scale=1:1; angle=0�.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Edited:	9-29-2005
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: cl_f_sheet<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="clab"></a><a href="clab.lsp">clab.lsp</a>
    </td>
    <td>
    <PRE>
;;;Place formatted northing and easting coordinates with a leader
;;;at the selected point.  The coordinates are first placed on
;;;the selected point and then selected to be moved to the desired location.
;;;Only two entry points are required, the point to label and the "move to"
;;;location for the label.  The coordinates may be placed to the right or left
;;;of the point and a leader will be placed to correspond.
;;;
;;;Limitations:
;;;	OSNAP should be set to NONE, single overides may be used.
;;;	Decimal places are set by UNITS
;;;	Text size is set by current value of sys variable TEXTSIZE.
;;;	Style must have "0" as the text height
;;;		
;;;	AUTHOR:    Henry C. Francis
;;;	COPYRIGHT: 3-11-1992
;;;	EDITED:	   12-9-2016
;;;
;;;****************************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:clab, clab_error, clab_mldrfun<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#getstyle">getstyle</a>, <a href="#gvpno">gvpno</a>, <a href="#make_layer_ent">make_layer_ent</a>, <a href="#mlt">mlt</a>, <a href="#mymldr">mymldr</a>, <a href="#txtsize">txtsize</a>, <a href="#uint">uint</a>, <a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="clbl"></a><a href="clbl.lsp">clbl.lsp</a>
    </td>
    <td>
    <PRE>
;;;Label contour polylines with their elevation.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	3-16-96
;;;	Edited:		2-10-2011
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:clbl<br/>Requires:<a href="#mklayr">mklayr</a>, <a href="#dimscl">dimscl</a>, <a href="#gvpno">gvpno</a>, <a href="#set_mjrg">set_mjrg</a>, <a href="#txtsize">txtsize</a>, <a href="#uint">uint</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="cldescr"></a><a href="cldescr.lsp">cldescr.lsp</a>
    </td>
    <td>
    <PRE>
;;;C:CLDESCR	Sets the description for the current layer (command-line input)
;;;
;;;(SETLAYERDESCR <layer name> <layer description>)
;;;		Sets the description for the specified layer (autolisp function input)
;;;		Will create the specified layer if it does not exist.
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 5/19/2011
;;;		   EDITED: 5/19/2011
;;;
;;;****************************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:cldescr, setlayerdescr<br/>Requires:<a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="cleanxng"></a><a href="cleanxng.LSP">cleanxng.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:cleanxng()<br/>Requires:<a href="#plxl">plxl</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="clfen"></a><a href="clfen.lsp">clfen.lsp</a>
    </td>
    <td>
    <PRE>
;;;Place a custom linetype as an anonymous block. (I call it chain-link fence) 
;;;It allows linear as well as curved sections.  The user toggles
;;;between the two during placement.  The block entity is not placed in
;;;the drawing until the user terminates the input with a return
;;;supplied to the "next point" prompt.  Size of the graphic elements
;;;is determined by the dimscale.  If the user matches the dimscale
;;;with the drawing scale the graphics will scale the same on all
;;;drawings.  The linetype consists of equally spaced circles (nearest
;;;to 1/2" spacing at scale for the length of arc or line) and lines
;;;between them that do not touch.  If the variable modf = "EXST" the
;;;circle radius is 0.03125 x dimscale, if not it is 0.0469 x dimscale.
;;;
;;;	AUTHOR:
;;;		HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	6-7-95
;;;	Edited:		11-24-98
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: bulge, c:clfen<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#upoint">upoint</a>, <a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="clg_color"></a><a href="clg_color.lsp">clg_color.lsp</a>
    </td>
    <td>
    <PRE>
;;;C:CLG_COLOR sets the CLG (modified) color field of the layer name from a dialog.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  6-30-99
;;;	   Edited:  6-30-99
;;;
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:clg_color, citocs, cstoci, get_color_no, set_clg_color, set_color_no<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#upoint">upoint</a>, <a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="clgentof"></a><a href="clgentof.lsp">clgentof.lsp</a>
    </td>
    <td>
    <PRE>
;Layer on/off/freeze/thaw tool keyed to CLG fields.
;
;	AUTHOR: HENRY C. FRANCIS
;		425 N. ASHE ST.
;		SOUTHERN PINES, NC 28387
;              
;		All rights reserved without prejudice.
;	Copyright:	7-10-94
;	Edited:		7-10-94
;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:clgentof<br/>Requires:<a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="closedwg"></a><a href="CloseDwg.lsp">closedwg.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:closedwg<br/>Requires:<a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="cloud"></a><a href="cloud.lsp">cloud.lsp</a>
    </td>
    <td>
    <PRE>
;;;Place a revision cloud.
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:cloud(/, c:swaparcs<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#bulgeit">bulgeit</a>, <a href="#dimscl">dimscl</a>, <a href="#gvpno">gvpno</a>, <a href="#mklayr">mklayr</a>, <a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#ureal">ureal</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="cmdopen"></a><a href="cmdopen.lsp">cmdopen.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;(IF (EQ (SUBSTR (GETVAR "acadver") 1 2) "14")
;;;  (SETQ DEFUN-Q DEFUN)
;;;  nil
;;;) ;_ end of IF

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: fun<br/>Requires:<a href="#dlog">dlog</a>, <a href="#log_it">log_it</a>, <a href="#myopencmd">myopencmd</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="cmdwait"></a><a href="cmdwait.lsp">cmdwait.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: cmdwait<br/>Requires:<a href="#dlog">dlog</a>, <a href="#log_it">log_it</a>, <a href="#myopencmd">myopencmd</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="cnl"></a><a href="cnl.lsp">cnl.lsp</a>
    </td>
    <td>
    <PRE>
;;;Place a construction note bubble with a leader in the drawing.
;;;The leader may be single or multiple lines at any angle.
;;;The bubble will be placed with the center along the line and the
;;;edge of the bubble coincident with the end of the leader.
;;;The bubble number may be optionally incremented or held the same
;;;for subsequent placements.
;;;
;;;	AUTHOR:
;;;		HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	9-23-93
;;;	Edited:		2-10-2011
;;;
;;;Added alpha tags with increments from "A" to "CZ" (104 alpha tags)
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:cnl, cnl_set_image, setarray, setldr<br/>Requires:<a href="#archldrs">archldrs</a>, <a href="#browser_help">browser_help</a>, <a href="#dimscl">dimscl</a>, <a href="#gvpno">gvpno</a>, <a href="#mklayr">mklayr</a>, <a href="#set_mjrg">set_mjrg</a>, <a href="#txtsize">txtsize</a>, <a href="#uint">uint</a>, <a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="cntag"></a><a href="cntag.lsp">cntag.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://paracadd.com
;;;	All rights reserved.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:cntag<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#upoint">upoint</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="coirwatl"></a><a href="coirwatl.lsp">coirwatl.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:
;;;	   Edited:
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:coirwattle<br/>Requires:<a href="#get_gpdgn_project_data">get_gpdgn_project_data</a>, <a href="#mklayr">mklayr</a>, <a href="#uint">uint</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="commands"></a><a href="commands.lsp">commands.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:	06-08-2012
;;;	   Edited:	06-08-2012
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:commands, c:dclfiles, c:lispfiles<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="comparefiles"></a><a href="comparefiles.lsp">comparefiles.lsp</a>
    </td>
    <td>
    <PRE>
;;;Writes comparison of two autolisp (or other ASCII) files to a file named <filename#1>-<filename#2>.<ext#1>
;;;in the same folder as <filename#1>.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 8-10-2006
;;;	   Edited: 8-10-2006

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:comparefiles, compfiles_error<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="condattupd"></a><a href="condattupd.lsp">condattupd.lsp</a>
    </td>
    <td>
    <PRE>
;;;Conditional Attribute update subroutine (attupd [blockname] [attribname] [newvalue] [condition] [testvalue])
;;;checks current attrib value for [condition] against [testvalue].  If True, attrib is updated with [newvalue]
;;;Used extensively in scripts to rapidly change title block fill-ins.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;       Copyright:      4-22-97
;;;       Edited:         10-7-2002
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: condattupd<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="conndots"></a><a href="CONNDOTS.LSP">conndots.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:
;;;	   Edited:
;;;
;;;Requires: ukword.lsp, upoint.lsp, make_layer_ent.lsp
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:conndots<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#3d">3d</a>, <a href="#make_layer_ent">make_layer_ent</a>, <a href="#stdltypes">stdltypes</a>, <a href="#uint">uint</a>, <a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="conndots2"></a><a href="conndots2.lsp">conndots2.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:conndots<br/>Requires:<a href="#make_layer_ent">make_layer_ent</a>, <a href="#uint">uint</a>, <a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table><table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="-make variant stuff"></a><a href="-MAKE VARIANT STUFF.lsp">-make variant stuff.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="conote"></a><a href="conote.lsp">conote.lsp</a>
    </td>
    <td>
    <PRE>
;;;Formats and places tabulated construction notes with bubble number tag references.
;;;
;;;Requirements:
;;;	(A) Insert(s) of a block named B_TAG, H_TAG, or D_TAG w/ one ATTRIB who's value is a no.
;;;	    CNL.LSP, command CNL, will insert these blocks;
;;;
;;;	(B) Text file named CONOTE.TXT with ALL of the construction notes.
;;;		1st line of file contains a number,
;;;		2nd line of file contains that number's note,
;;;		3rd line of file contains another number,
;;;		4th line of file contains that number's note,
;;;		etc.
;;;
;;;	Use only one line for each entire note text. Line wrapping is
;;;	handled by the program.
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:	8-31-98
;;;	Edited:		12-30-2010
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:conote	(/	<br/>Requires:<a href="#abrkstr">abrkstr</a>, <a href="#dimscl">dimscl</a>, <a href="#mklayr">mklayr</a>, <a href="#uint">uint</a>, <a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="conoted"></a><a href="Conoted.lsp">conoted.lsp</a>
    </td>
    <td>
    <PRE>
;;;Formats and places individualized construction notes.
;;;
;;;Requirements:
;;;	(A) Insert(s) of a block named B_TAG w/ one ATTRIB who's value is a no.;
;;;	(B) Text file named CONOTE.TXT with ALL of the construction notes.
;;;		1st line of file contains a number,
;;;		2nd line of file contains that number's note,
;;;		3rd line of file contains another number,
;;;		4th line of file contains that number's note,
;;;		etc.
;;;
;;;	Use only one line for each entire note text.
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	All rights reserved.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:conote	(/	<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#mklayr">mklayr</a>, <a href="#uint">uint</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="contourlayers"></a><a href="CONTOURLAYERS.LSP">contourlayers.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:contourlayers<br/>Requires:<a href="#mklayr">mklayr</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="control-custom"></a><a href="control-custom.LSP">control-custom.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: control-custom<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#ed">ed</a>, <a href="#fixrememberfolders">fixrememberfolders</a>, <a href="#open">open</a>, <a href="#qsave">qsave</a>, <a href="#quit">quit</a>, <a href="#save">save</a>, <a href="#saveas">saveas</a>, <a href="#textscrnmem">textscrnmem</a>, <a href="#uutils">uutils</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="copyimagelocal"></a><a href="copyimagelocal.LSP">copyimagelocal.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:
;;;	   Edited:
;;;
;;;****************************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:copyimagelocal	(), c:cpimgl, c:networkimagepath	(), c:nwimg<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#copyimagelocal">copyimagelocal</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="copytnotefiles"></a><a href="copytnotefiles.lsp">copytnotefiles.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:copytnotefiles<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#copyimagelocal">copyimagelocal</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="corp_a_sheet"></a><a href="corp_a_sheet.lsp">corp_a_sheet.lsp</a>
    </td>
    <td>
    <PRE>
;;;CORP 8-1/2x11 (ANSI A Size Sheet) Title Block Xref attachment function.
;;;Attach at 0,0; scale=1:1; angle=0�.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 3/14/2006
;;;	Edited:	   9/23/2009
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: corp_a_sheet<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#setstdpage">setstdpage</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="corp_a_sheet_l"></a><a href="corp_a_sheet_l.lsp">corp_a_sheet_l.lsp</a>
    </td>
    <td>
    <PRE>
;;;CORP 11x8.5 (ANSI A Size Sheet) Title Block insertion function.
;;;Inserts at 0,0; scale=1:1; angle=0�.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Edited:	5-23-2013
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: corp_a_sheet_l<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#setstdpage">setstdpage</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="corp_a_sheet_ls"></a><a href="corp_a_sheet_ls.lsp">corp_a_sheet_ls.lsp</a>
    </td>
    <td>
    <PRE>
;;;CORP 8-1/2x11 (ANSI A Size Sheet) Title Block Xref attachment function.
;;;Attach at 0,0; scale=1:1; angle=0�.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 3/14/2006
;;;	Edited:	   9/23/2009
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: corp_a_sheet_ls<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#setstdpage">setstdpage</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="corp_a_sheet_p"></a><a href="corp_a_sheet_p.lsp">corp_a_sheet_p.lsp</a>
    </td>
    <td>
    <PRE>
;;;CORP 8.511 (ANSI A Size Sheet) Title Block insertion function.
;;;Inserts at 0,0; scale=1:1; angle=0�.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Edited:	9-23-2009
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: corp_a_sheet_p<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#setstdpage">setstdpage</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="corp_ad_cover"></a><a href="corp_ad_cover.lsp">corp_ad_cover.lsp</a>
    </td>
    <td>
    <PRE>
;;;CORP 36x24 (ARCH-D Size Cover Sheet) Title Block Xref attachment function.
;;;Attach at 0,0; scale=1:1; angle=0�.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Edited:	9-23-2009
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: corp_ad_cover<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#attupd">attupd</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="corp_b_sheet"></a><a href="corp_b_sheet.lsp">corp_b_sheet.lsp</a>
    </td>
    <td>
    <PRE>
;;;CORP 17x11 (ANSI B Size Sheet) Title Block insertion function.
;;;Attach at 0,0; scale=1:1; angle=0�.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Edited:	5-23-2013
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: corp_b_sheet<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#setstdpage">setstdpage</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="corp_d_cover"></a><a href="corp_d_cover.lsp">corp_d_cover.lsp</a>
    </td>
    <td>
    <PRE>
;;;CORP 34x22 (ANSI D Size Cover Sheet) Title Block Xref attachment function.
;;;Attach at 0,0; scale=1:1; angle=0�.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Created:	9-23-2009
;;;	 Edited:	5-7-2014
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: corp_d_cover<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#attupd">attupd</a>, <a href="#setstdpage">setstdpage</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="corp_d_csfill"></a><a href="corp_d_csfill.lsp">corp_d_csfill.lsp</a>
    </td>
    <td>
    <PRE>
;;;CORP 34x22 (ANSI D Size Cover Sheet) Title Block Xref attachment function.
;;;Attach at 0,0; scale=1:1; angle=0�.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Edited:	9-23-2009
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: corp_d_csfill<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#attupd">attupd</a>, <a href="#setstdpage">setstdpage</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="corp_d_cstitle"></a><a href="corp_d_cstitle.lsp">corp_d_cstitle.lsp</a>
    </td>
    <td>
    <PRE>
;;;CORP 34x22 (ANSI D Size Cover Sheet) Title Block Xref attachment function.
;;;Attach at 0,0; scale=1:1; angle=0�.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Edited:	9-23-2009
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: corp_d_cstitle<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#attupd">attupd</a>, <a href="#setstdpage">setstdpage</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="corp_d_sheet"></a><a href="corp_d_sheet.lsp">corp_d_sheet.lsp</a>
    </td>
    <td>
    <PRE>
;;;CORP 34x22 (ANSI D Size Sheet) Title Block Xref attachment function.
;;;Attach at 0,0; scale=1:1; angle=0�.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Edited:	5-8-2014
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: copy-tb-to-project-folder, corp_d_sheet<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#set_drive_letters">set_drive_letters</a>, <a href="#setstdpage">setstdpage</a>, <a href="#ukword">ukword</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="corp_sheets"></a><a href="corp_sheets.lsp">corp_sheets.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: corp_d_sheet<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#set_drive_letters">set_drive_letters</a>, <a href="#setstdpage">setstdpage</a>, <a href="#ukword">ukword</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="corpndx"></a><a href="corpndx.LSP">corpndx.lsp</a>
    </td>
    <td>
    <PRE>
;;;Lisp function: (corpndx)
;;;     and other supporting lisp subroutines are included in this file.
;;;
;;;     (corpndx) Creates/Updates CORPNDX.TXT - a sorted index of project
;;;     drawing names, sheet nos., titles, and area info for viewports.
;;;     This information is used by the commands below.
;;;
;;;Requirements:
;;;     Block named *TTBAT.  It can be
;;;     customized but it must contain all attributes in the original
;;;     CORPTTBAT and be named as indicated.  Unneeded attributes can be
;;;     left blank or "parked" outside the sheet area.  Attributes are
;;;     for Title block fill-in. Only drawings containing one of these
;;;     blocks are considered to be sheets in the project document set.
;;;
;;;Commands: Shtndx, Shtbnd, Viewsht, Esbnd, Bproj (from bproj.lsp)
;;;
;;;Use SHTNDX to create a complete drawing index from CORPNDX.TXT.
;;;Use SHTBND to create sheet number labels and rectangles outlining all
;;;    viewport areas for all sheets.
;;;Use VIEWSHT to zoom to any viewport area of any sheet.  Examine
;;;    coordinate values to help select plan, profile or detail views.
;;;Use ESBND to erase all labels and rectangles created by SHTBND.
;;;Use BPROJ to automatically compile the ordered list of project sheets
;;;    for plotting and start BPLOT ready to plot them all.
;;;
;;;CORPNDX.TXT Notes:
;;;
;;;       Use EDTXT to open CORPNDX.TXT in Notepad.  Open CORPNDX.TXT to
;;;       view drawing names and their associated sheet numbers (a very
;;;       handy reference).
;;;
;;;       CORPNDX should be manually sorted after new sheets are added.
;;;       Once the list is complete and has been sorted it will not need
;;;       sorting again.
;;;
;;;       Do not use word wrap! Sheet info must occupy only one line in
;;;       the file.
;;;
;;;       Sheets that belong to the project but are kept elsewhere can
;;;       be manually added (vport info may be omitted) so SHTNDX will
;;;       produce the complete sheet index.
;;;
;;;       Add BOGUS drawing names and titles to provide section headings
;;;       such as CIVIL, MECHANICAL, STRUCTURAL, ELECTRICAL, etc.
;;;
;;;       Corrected vpbnd subroutine to translate viewport bounds from UCS
;;;       to WCS
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;       Copyright:      4-22-97
;;;       Edited:         4-2-2007
;;;
;;;****************************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:corpndx, corpndx, corpndx_error, vpbnds<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#attupd">attupd</a>, <a href="#getfield">getfield</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="corrdrill"></a><a href="corrdrill.LSP">corrdrill.lsp</a>
    </td>
    <td>
    <PRE>
;;;This drills into a corridor object
;;;Only a few rabbit trails are followed
;;;Cannot find any object that exposes a Region's target(s)

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:corrdrill<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#attupd">attupd</a>, <a href="#getfield">getfield</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="cpl"></a><a href="cpl.lsp">cpl.lsp</a>
    </td>
    <td>
    <PRE>
;;;Copy most entities from Blocks or XREFs.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 1996-2011
;;;	Edited:	   7-25-2003
;;;
;;;	Requirements: ukword.lsp, transpt.lsp
;;;
;;;****************************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:cpl, fixblktxt<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#gvpno">gvpno</a>, <a href="#make_layer_ent">make_layer_ent</a>, <a href="#mklayr">mklayr</a>, <a href="#transpt">transpt</a>, <a href="#ukword">ukword</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="cplots"></a><a href="cplots.lsp">cplots.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:cplots<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#gvpno">gvpno</a>, <a href="#make_layer_ent">make_layer_ent</a>, <a href="#mklayr">mklayr</a>, <a href="#transpt">transpt</a>, <a href="#ukword">ukword</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="cplx"></a><a href="cplx.lsp">cplx.lsp</a>
    </td>
    <td>
    <PRE>
;;;Copy block definition into the current viewport of the current file from an insert (block instance) in an Xref.
;;;Will omit nested inserts (blocks) from the new block definition.
;;;The new block scale is optionally the current viewport scale or the original object scale.
;;;The new block insertion layer is keyed to the current viewport CLG layer minor group (VI##)
;;;If the current viewport is not on a view number keyed CLG layer you will be asked to specify one.
;;;Primary usage is for making blow-up details of pipeline features i.e. valves & fittings.
;;;Allows a smaller scale duplicate symbol to be used and the original symbol frozen in the blow-up detail viewport.
;;;
;;;Requires:	ukword.lsp, gvpno.lsp, vpset.lsp, dimscl.lsp, mklayr.lsp
;;;		available free from http://www.paracadd.com/lisp/<filename>
;;;		filenames are case sensitive for download so you may need to browse http://www.paracadd.com/lisp/lisp_lst.htm
;;;		for the correct case if using a direct link results in "Not Found"
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 1996-2010
;;;	Edited:	   7-13-2010
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:cplx<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#gvpno">gvpno</a>, <a href="#mklayr">mklayr</a>, <a href="#ukword">ukword</a>, <a href="#vpset">vpset</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="cppdviews"></a><a href="cppdviews.lsp">cppdviews.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:cplx<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#gvpno">gvpno</a>, <a href="#mklayr">mklayr</a>, <a href="#ukword">ukword</a>, <a href="#vpset">vpset</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="csidetails"></a><a href="CSIdetails.LSP">csidetails.lsp</a>
    </td>
    <td>
    <PRE>
;;;By default CSIdetails is pointed to the "N:\Standards\Details 2009\Details by CSI Divisions"; however,
;;;you can modify this to point to any location you want or, from within the dialog, direct it to any folder
;;;on any drive to obtain a listing of the directories with drawings that it contains.
;;;
;;;All subfolders are searched for drawings and it returns only the folders which contain drawings.
;;;Because it searches all subfolders it is not a good idea to point it to just a drive letter or a folder
;;;containing a very large number of subfolders and drawings (although it can handle it, it will take longer
;;;to do very large searches).
;;;
;;;Required Files for standalone use:
;;;
;;;             CSIdetails.lsp,
;;;             CSIdetails.dcl, 
;;;             check_for_doslib.lsp; and, 
;;;             Doslib##.arx where ## is your AutoCAD version number (2004=16; 2007=17; 2010=18)
;;;		Doslib is a freely distributed product of:
;;;			Robert McNeel & Associates
;;;			3670 Woodland Park Ave N
;;;			Seattle, WA 98103 USA
;;;			Sales: (206) 545-7000.
;;;			Support: (206) 545-6877.
;;;			Fax: (206) 545-7321 ...
;;;			http://www.mcneel.com
;;;Command: CSIdetails
;;;
;;;Result: 
;;;             Dialog with indented folder/file listing; and,
;;;             Text screen output of the listing.
;;;
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 11/17/2009
;;;		   EDITED: 11/18/2009
;;;
;;;****************************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:csidetails, csi_error, list_path_folders, set_open_path<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="ctc"></a><a href="ctc.lsp">ctc.lsp</a>
    </td>
    <td>
    <PRE>
;;;Sets case of selected text and of attributes in selected blocks.
;;;Default is all uppercase.
;;;
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	7-7-94
;;;	Edited:		9-5-2013
;;;
;;;	9-5-2013	added MTEXT and MULTILEADERS
;;;			added Title case

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:ctc, titlecase<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="ctol"></a><a href="ctol.lsp">ctol.lsp</a>
    </td>
    <td>
    <PRE>
;Copy a selection set to a specified layer.
;
;	AUTHOR: HENRY C. FRANCIS
;		425 N. ASHE ST.
;		SOUTHERN PINES, NC 28387
;              
;		All rights reserved without prejudice.
;
;	Copyright:	3-19-96
;	Edited:		3-19-96
;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:ctol<br/>Requires:<a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="ctxt"></a><a href="ctxt.lsp">ctxt.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:ctxt<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#tnote">tnote</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="curvtbl"></a><a href="curvtbl.lsp">curvtbl.lsp</a>
    </td>
    <td>
    <PRE>
;;;Format and place a curve table using current style settings
;;;to fix the size of the table.  The number of decimal 
;;;places is hard coded. Locate (RTOS ... 2 2) to change
;;;		
;;;	AUTHOR: Henry C. Francis
;;;               425 N. Ashe Street
;;;               Southern Pines, NC 28387
;;;
;;;	Copyright: 3-11-1992
;;;	Edited:	   4-8-2001
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:ctbl<br/>Requires:<a href="#mklayr">mklayr</a>, <a href="#dimscl">dimscl</a>, <a href="#getstyle">getstyle</a>, <a href="#txtsize">txtsize</a>, <a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="da"></a><a href="da.lsp">da.lsp</a>
    </td>
    <td>
    <PRE>
;;;Places direction arrow
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  4-16-98
;;;	   Edited:  4-16-98
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:da<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#mklayr">mklayr</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="darrow"></a><a href="DARROW.lsp">darrow.lsp</a>
    </td>
    <td>
    <PRE>
;;;Places direction arrow
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  4-16-98
;;;	   Edited:  8-17-2006
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:darrow, darrow_error<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#mklayr">mklayr</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="dblockcode"></a><a href="Dblockcode.lsp">dblockcode.lsp</a>
    </td>
    <td>
    <PRE>
;;;Written/Modified By Mark Douglas
;;;July 25, 2005
;;;Posted on http://mdouglas.blogs.com/in_the_dynamic_interface/2005/07/dynamic_lisp_co.html
;;;Mark included a significant discussion at the above URL
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: dtr, mymodifybk, rtd, setpropvalue<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#mklayr">mklayr</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="dblppgrid"></a><a href="dblppgrid.lsp">dblppgrid.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  5-21-2004
;;;	   Edited:  10-31-2008

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:dblppgrid, ppgrid_error<br/>Requires:<a href="#mklayr">mklayr</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="ddhtext"></a><a href="ddhtext.lsp">ddhtext.lsp</a>
    </td>
    <td>
    <PRE>
;;;Place "hiding" objects over each text string. (on layer ?-NPLT?????HS).
;;;Adjust spacing using HDSPACE for numeric and HDMATCH for matched text.
;;;
;;;Added exclusion of text with thickness = 1.0
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:      1-26-96
;;;	Edited:		1-29-04
;;;
;;;	disabled creation of 3Dfaces - now makes HDBOX inserts only.
;;;	added automatic management of UCS.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:ddhtext, c:ehdt, c:hdmatch, c:hdspace, c:hdupd, ddhtextsof, dodraworder, getsets, hdtext, hdtext_values, set_margin, ukword, ureal, ustr<br/>Requires:<a href="#browser_help">browser_help</a>, <a href="#dims">dims</a>, <a href="#dimscl">dimscl</a>, <a href="#gvpno">gvpno</a>, <a href="#pttxt">pttxt</a>, <a href="#uutils">uutils</a>, <a href="#vpset">vpset</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="ddlines"></a><a href="DDLINES.LSP">ddlines.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:ddlines<br/>Requires:<a href="#browser_help">browser_help</a>, <a href="#dims">dims</a>, <a href="#dimscl">dimscl</a>, <a href="#gvpno">gvpno</a>, <a href="#pttxt">pttxt</a>, <a href="#uutils">uutils</a>, <a href="#vpset">vpset</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="ddupent"></a><a href="DDUPENT.lsp">ddupent.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	All rights reserved.
;;;
;;;	Copyright:  
;;;	   Edited:  

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:ddupent<br/>Requires:<a href="#browser_help">browser_help</a>, <a href="#dims">dims</a>, <a href="#dimscl">dimscl</a>, <a href="#gvpno">gvpno</a>, <a href="#pttxt">pttxt</a>, <a href="#uutils">uutils</a>, <a href="#vpset">vpset</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="debugon"></a><a href="debugon.lsp">debugon.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:	12/9/2016
;;;	   Edited:	12/9/2016
;;;
;;;****************************************************************************
;;;	Looks for "debug*" variables and sets them T

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:alldebugoff, c:alldebugon, c:debugoff, c:debugon, getdebugwords<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="debugsetvar"></a><a href="debugsetvar.lsp">debugsetvar.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:debugsetvar, setvar<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="ded"></a><a href="ded.lsp">ded.lsp</a>
    </td>
    <td>
    <PRE>
;;;Auto invoke DDATTE, DDEDIT or DIM NEW based upon filtered selection.
;;;       Routine will only select MTEXT, TEXT, ATTRIB, DIMENSION or
;;;       INSERT w/attrib. It will report the type of entity selected
;;;       if it cannot be edited via the above commands and prompt to
;;;       select again.
;;;
;;;	It was initially intended to be a command, hence the function name
;;;       C:.... Note that the variable pstr is required, e.g. (c:ded pstr).
;;;	pstr is simply the prompt string.  It is set in redefinition
;;;	of the commands that are affected in order to give the expected
;;;	prompts.  Invoke this routine from the redefined ddedit and ddatte.
;;;
;;;	AUTHOR: Henry C. Francis
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	1995-2005
;;;	Edited:		2-28-2005
;;;
;;;       Changed selection window to set after each entsel pick.
;;;       Fixes unexpected selections following transparent zooms.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:ddatte, c:ddedit, c:ded, ded_error<br/>Requires:<a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="delaeccdup"></a><a href="DELAECCDUP.LSP">delaeccdup.lsp</a>
    </td>
    <td>
    <PRE>
;;;Deletes any number of equal AECC_POINT objects from the drawing leaving just one instance of each.
;;;Only the description, elevation , northing, and easting are compared for equality.
;;;A fuzz factor of 0.001 is applied to these values.
;;;The numbers can be different without failing the equality check.
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 1-12-2006
;;;	   Edited: 1-25-2015
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:delaeccdup, c:delaeccpntdup<br/>Requires:<a href="#c3difodoc">c3difodoc</a>, <a href="#delduplin">delduplin</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="delduplin"></a><a href="DELDUPLIN.LSP">delduplin.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;Deletes duplicate line, circles, blocks, or points
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:deldupblk, c:deldupcir, c:delduplin, c:delduppt<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#delaeccdup">delaeccdup</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="deletepagesetups"></a><a href="deletepagesetups.lsp">deletepagesetups.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:deletepagesetups, deletepagesetups<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#delaeccdup">delaeccdup</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="deletesectionbystyle"></a><a href="deletesectionbystyle.lsp">deletesectionbystyle.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:
;;;	   Edited:
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:deletesectionbystyle, c:selectsectionsbystyle<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#delaeccdup">delaeccdup</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="delimin"></a><a href="DELIMIN.LSP">delimin.lsp</a>
    </td>
    <td>
    <PRE>
;KETIV - Insert delimited ascii text files into a drawing.
; DELIMIN.LSP
;
; Copyright 1986, 1987, 1988, 1989 by KETIV Technologies, Inc.
; All rights reserved.
; KETIV Technologies, Inc.
; 6645 NE 78th Court #C-2
; Portland, OR 97218
;
; Layer Group: KTEXT
;
; Menu Location: Text I/O Pull down
;
; Purpose:Insert delimited ascii text files into a drawing
;
; Prompts:
;    Enter filename <Name.ext>:
;        [if the file is not found]
;        ERROR: File " fn " not found - try again
;        Enter filename <Name.ext>:
;    Enter column delimiter <,>:
;    Scanning file for # of rows/columns . . .
;        [if the text height is not set in the style]
;        Enter text height <default>:
;        [Else show current text style height]
;        Your current style is "style", which has a fixed text height of "height"
;    Enter line spacing <default>:
;    Enter text point:
;    Enter first column width <default>:
;    Enter text justification: Center/Right/<Left>:
;    Set column width automatically from 1st line? <Y>:
;    Enter text justification: Center/Right/<Left>:
;
; Assumptions/Limitations: None
;
;======================================================================================================
; Text importing utility for bringing Columnar data into AutoCAD.
; Requires an ASCII text file with column delimiter.
;
; FEATURES:  --Scans 1st line of file for # of columns
;            --Scans entire file for # of lines
;            --Adjusts for fixed or variable text height
;            --Read-out of current row/col # (in screen menu area)
;            --Read-out of percent done (in screen menu area)
;            --Scans 1st line for default width of columns
;            --Allows auto column width based on 1st line of text
;            --Auto column width makes each column left-justified
;            --Displays 1st text line when asking for delimiter
;            --If manual column width, can choose justification
;                 for each column (Left, Center, Right).
;
;----------------------------------------------------------------------------
; Initialize memory and important system variables
;--------------------------------------------------

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:delimin<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#delaeccdup">delaeccdup</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="delocnp"></a><a href="delocnp.lsp">delocnp.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: delocnp<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#delaeccdup">delaeccdup</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="delptpl"></a><a href="delptpl.lsp">delptpl.lsp</a>
    </td>
    <td>
    <PRE>
;;;Delete LWpolylines with only two coincident vertices (point polylines).
;;;Explodes all other two vertex LWpolylines to make them Lines.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:delptpl<br/>Requires:<a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="delspotldr"></a><a href="DELSPOTLDR.LSP">delspotldr.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:delspotldr<br/>Requires:<a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="dictedit"></a><a href="DictEdit.lsp">dictedit.lsp</a>
    </td>
    <td>
    <PRE>
;; Dictionary Editing tools
;; by Irn� Barnard


    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:dictedit	(/					, dictitemdelete_datalink, dictitemedit_datalink, getalldicts, n, warnmsg<br/>Requires:<a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="dictfuns"></a><a href="DICTFUNS.LSP">dictfuns.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;--- How to save Lisp values with drawing? ---
;;;
;;;
;;;We have two possibilities in R14 -- dictionaries
;;;and EED, extended entity data. Both provide us with
;;;a means of storing information in a DWG persistently.
;;;We can store a series of code pairs in EED, as usual,
;;;only the codes are 1000, 1040 etc. BUT -- in a real
;;;Lisp programs we often have variables that are a *lists*
;;;of data, and in Lisp a list is actually a tree in that it
;;;can contain another list and so on.
;;;
;;;So how can we store lists in EED (or in Xrecords to be
;;;put into dictionary)? We must have some way to encode it
;;;into the possible code groups, and later to decode it back
;;;while retrieving the info.
;;;
;;;Both EED and Xrecords are very similar in that, and in both
;;;cases we must use this en/decoding.
;;;
;;;How can we do that? We need to use some special marker
;;;to mark a beginning/ending of a lists. Let's use LB
;;;as a List Begin marker and LE as a list end.
;;;
;;;This all means that we need to find a way to convert e.g.
;;; (1 (2 (3 "4") 5)) into
;;; LB 1 LB 2 LB 3 "4" LE 5 LE LE
;;;and vice versa. In other words, we want to find
;;;the conversion between Lisp tree-like lists
;;;and this special one-dimentional list representation.
;;;
;;;For that we can use something similar to that RE-LIST
;;;function that I have posted several times in its various
;;;modifications.
;;;
;;;Let's use here "{" as LB and "}" as LE.
;;;
;;;RE-LIST is decoding a list back into its original LISP form
;;;and may be done like this:
;;;
;; all functions here are (C.) 1997 by Vladimir Nesterovsky,
;;  vnestr@netvision.net.il, All Rights Reserved
;; please keep this notice intact


    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: dict-clear, dict-get, dict-getrawdata, dict-list, dict-name, dict-new, dict-put, dict-remove, en-list, myregapp, pop(a, re-list, re-list-aux(), x-enlist, x-relist, x-relist-aux()<br/>Requires:<a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="diesel"></a><a href="diesel.lsp">diesel.lsp</a>
    </td>
    <td>
    <PRE>
;;;Diesel test function (see customization manual)
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:diesel<br/>Requires:<a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="diimscl"></a><a href="diimscl.lsp">diimscl.lsp</a>
    </td>
    <td>
    <PRE>



    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: dimscl<br/>Requires:<a href="#gvpno">gvpno</a>, <a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="dimaro"></a><a href="dimaro.lsp">dimaro.lsp</a>
    </td>
    <td>
    <PRE>
;;;Creates the user arrow block DIMARO if it does not exist.
;;;This block is designed with a vector fill so that it remains
;;;filled even if hidden lines are removed (which blanks out fills)
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://paracadd.com
;;;	All rights reserved.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: dimaro<br/>Requires:<a href="#gvpno">gvpno</a>, <a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="dimext"></a><a href="dimext.lsp">dimext.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:
;;;	   Edited:
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:dimext, c:dimextoff<br/>Requires:<a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="dimleaders"></a><a href="dimleaders.LSP">dimleaders.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:
;;;	   Edited:
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:dimleaders<br/>Requires:<a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="dimscl"></a><a href="dimscl.lsp">dimscl.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://paracadd.com
;;;
;;;     Copyright: 1/26/96
;;;	   Edited: 6/14/07
;;;	All rights reserved.
;;;
;;;	Fixed prev selection set from getting wiped by viewport selection.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: dimscl<br/>Requires:<a href="#gvpno">gvpno</a>, <a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="dimseg"></a><a href="dimseg.lsp">dimseg.lsp</a>
    </td>
    <td>
    <PRE>
;;;Sets dimstyles ENGRDIMS and ENGRLDRS and updates all dimensions to zero decimal places.
;;;All dimensions greater than max. distance for dimension leaders are updated to be
;;;regular dimensions (text above dimension line between arrows).  All other dimensions
;;;are updated to be dimension leaders.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:dimseg<br/>Requires:<a href="#engrdims">engrdims</a>, <a href="#engrldrs">engrldrs</a>, <a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="dimstd"></a><a href="dimstd.lsp">dimstd.lsp</a>
    </td>
    <td>
    <PRE>
;;;;
;;;;
;;;;	Author:
;;;;		Henry C. Francis
;;;;		425 N. Ashe Street
;;;;		Southern Pines, NC 28387
;;;;
;;;	http://www.paracadd.com
;;;;	All rights reserved.
;;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:dimstd<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="dimucs"></a><a href="DIMUCS.LSP">dimucs.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  
;;;	   Edited:  
;;;****************************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:dimucs, dimucs_error<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#engrdims">engrdims</a>, <a href="#engrldrs">engrldrs</a>, <a href="#gvpno">gvpno</a>, <a href="#mklayr">mklayr</a>, <a href="#tsnap">tsnap</a>, <a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#ureal">ureal</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="dint"></a><a href="dint.lsp">dint.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 2010
;;;		   EDITED: 2010
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:dint<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="dirs"></a><a href="dirs.lsp">dirs.lsp</a>
    </td>
    <td>
    <PRE>
;;;Generates a directory and file listing for the specified drive-directory string.
;;;Note: drvdirstr must be in the form returned by (getvar"dwgprefix").
;;;Creates DOSDIR.BAT to create DOSDIR.LST which is read to capture directories and
;;;filenames to write to dir_lst (was to file DIRS.LST) and to fil_lst
;;;(was to file FILES.LST) respectively.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 1/28/98
;;;	Edited:    5/20/01
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: dirs<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="disoff"></a><a href="disoff.lsp">disoff.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	All rights reserved.
;;;
;;;	Copyright:  3-12-2002
;;;	   Edited:  3-12-2002

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:disoff, c:dison<br/>Requires:<a href="#dis">dis</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="dlog"></a><a href="dlog.lsp">dlog.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  1991-2001
;;;	   Edited:  4-21-2010
;;;
;;;Writes activity lines to <dos root drive>:\ACAD\DWG_EDIT.LOG
;;;
;;;Requires:	DOSLIB incorporated by permission from Robert McNeel & Associates
;;;		http://www.en.na.mcneel.com/doslib.htm
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: dlog<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#log_it">log_it</a>, <a href="#proj">proj</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="dmlt"></a><a href="dmlt.lsp">dmlt.lsp</a>
    </td>
    <td>
    <PRE>
;;;Places demolish (double hatch) or abandon (single hatch) linetype
;;;Requires Linetypes ABAN and DEMOL to be added into ACAD.LIN
;;;Requires shapes ABAN and DEMOL in Ltypeshp.shp compiled into Ltypeshp.shx
;;;
;;;LINETYPE DEFINITIONS:
;;;
;;;
;;;LINETYPE DEFINITIONS: (your system should have the symbol font 'Symeteo' installed)
;;;
;;;*ANSI31,ANSI31 \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
;;;A,0,-.15,["U",symeteo,R=0.0,X=-.2,Y=-0.125,S=.3],-.15,0
;;;*ANSI37, ANSI37 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
;;;A,0,-.15,["+",symeteo,R=45.0,X=-.1,Y=-0.489,S=.66],-.15,0
;;;
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;	Copyright:	3-5-96
;;;	Edited:		10-21-2002
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:dmlt<br/>Requires:<a href="#mklayr">mklayr</a>, <a href="#dimscl">dimscl</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="dogl"></a><a href="dogl.lsp">dogl.lsp</a>
    </td>
    <td>
    <PRE>
;Dogleg existing vertical leaders and text in profiles.
;
;	AUTHOR: HENRY C. FRANCIS
;		425 N. ASHE ST.
;		SOUTHERN PINES, NC 28387
;              
;		All rights reserved without prejudice.
;
;	Copyright:	3-16-95
;	Edited:		3-16-95
;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:dogl<br/>Requires:<a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="dp"></a><a href="dp.lsp">dp.lsp</a>
    </td>
    <td>
    <PRE>
;;;Dynamic Zoom/Pan trick.  Best for simpler drawings.
;;;
;;;	Modified from a tip in Cadylst or Cadence (don't remember which).
;;;	Modification requires UINT.LSP and UKWORD.LSP (see UUTILS.LSP)
;;;
;;;
;;;****************************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:dp, c:predp, dp_error, quickdp<br/>Requires:<a href="#errortrap">errortrap</a>, <a href="#uint">uint</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="draweroc"></a><a href="draweroc.lsp">draweroc.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: draw_eroc_seg, draweroc, draweroc_error<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#gvpno">gvpno</a>, <a href="#mklayr">mklayr</a>, <a href="#stait">stait</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="drawgrid"></a><a href="drawgrid.lsp">drawgrid.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 1999
;;;	   Edited: 10-26-2016
;;;
;;;Requires: mklayr.lsp uint.lsp upoint.lsp custom.lin
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:drawgrid<br/>Requires:<a href="#make_layer_ent">make_layer_ent</a>, <a href="#uint">uint</a>, <a href="#upoint">upoint</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table><table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="-make variant stuff"></a><a href="-MAKE VARIANT STUFF.lsp">-make variant stuff.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="driveway"></a><a href="driveway.lsp">driveway.lsp</a>
    </td>
    <td>
    <PRE>
;;;Creates driveways as polylines in the drawing using selected AECC_POINT objects,
;;;AECC_COGO_POINT objects, DCA POINT blocks, or picked points.
;;;A licensed version of AutoCAD Civil is required to make use of AECC objects.
;;;If the point descriptions are discernable for type and width these values
;;;are set automatically; otherwise, you will be asked to specify type and/or
;;;width.  Type is incorporated into the CLG layer name which is automatically
;;;generated.  If an edge of pavement line is available, the driveway centerline
;;;point at the EOP and a 'nearest' snapped point to the EOP on each side of the
;;;driveway will define the lines to which the driveway lines are intersected.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	All rights reserved.
;;;
;;;	Copyright:  12/15/2004
;;;	   Edited:  12/15/2016
;;;
;;;	Revised to loop until Quit
;;;
;;; Requires BULGEBYPNTS.LSP UANGLE.LSP UDIST.LSP UPOINT.LSP UKWORD.LSP UINT.LSP UREAL.LSP USTR.LSP
;;; MAKE_LAYER_ENT.LSP
;;;
;;;****************************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:driveway, c:drvw, c:rdrv, driveway_error<br/>Requires:<a href="#bulgebypnts">bulgebypnts</a>, <a href="#c3difodoc">c3difodoc</a>, <a href="#make_layer_ent">make_layer_ent</a>, <a href="#pttxt">pttxt</a>, <a href="#tsnap">tsnap</a>, <a href="#uangle">uangle</a>, <a href="#udist">udist</a>, <a href="#uint">uint</a>, <a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#ureal">ureal</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="dropinlet"></a><a href="dropinlet.lsp">dropinlet.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 2009
;;;		   EDITED: 8-24-2010
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:3ptbox, c:dropinlet<br/>Requires:<a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="drtl"></a><a href="DRTL.LSP">drtl.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	All rights reserved.
;;;
;;;	Copyright:  10-23-2002
;;;	   Edited:  10-3-2002
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:drtl<br/>Requires:<a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="drvxngs"></a><a href="drvxngs.lsp">drvxngs.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:drvxngs, fun<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="dtlnote"></a><a href="dtlnote.lsp">dtlnote.lsp</a>
    </td>
    <td>
    <PRE>
;;;Formats and places individualized construction notes.
;;;
;;;Requirements:
;;;	(A) Insert(s) of a block named B_TAG w/ one ATTRIB who's value is a no.;
;;;	(B) Text file named CONOTE.TXT with ALL of the construction notes.
;;;		1st line of file contains a number,
;;;		2nd line of file contains that number's note,
;;;		3rd line of file contains another number,
;;;		4th line of file contains that number's note,
;;;		etc.
;;;
;;;	Use only one line for each entire note text.
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:dtlnote, dtlnote_error<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#abrkstr">abrkstr</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#dimscl">dimscl</a>, <a href="#getstyle">getstyle</a>, <a href="#mklayr">mklayr</a>, <a href="#txtsize">txtsize</a>, <a href="#uint">uint</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="dttl"></a><a href="DTTL.lsp">dttl.lsp</a>
    </td>
    <td>
    <PRE>
;;;Place a detail title bubble with title text, underline and scale text.
;;;       Uses DIMSCALE and LUNITS to format scale string and scale bubble
;;;       and text.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	9-30-93
;;;	Edited:		9-27-2007
;;;
;;;       Requirements:   GETSTYLE.LSP (gets current style values and changes
;;;                                     them as req'd for this function only.)
;;;
;;;****************************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:dttl, dttl_error<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#getstyle">getstyle</a>, <a href="#gvpno">gvpno</a>, <a href="#mklayr">mklayr</a>, <a href="#pttxt">pttxt</a>, <a href="#ukword">ukword</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="dtxt"></a><a href="dtxt.lsp">dtxt.lsp</a>
    </td>
    <td>
    <PRE>
;;;Custom DTEXT. Auto sets layer attribs and text size. LINE-under-last option.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	2-23-96
;;;	Edited:		6-13-2005
;;;
;;;Added explicit load for upoint, ukword, uangle (no longer dependent upon external load).
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:dtxt<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#gvpno">gvpno</a>, <a href="#mklayr">mklayr</a>, <a href="#txtsize">txtsize</a>, <a href="#uangle">uangle</a>, <a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="dump"></a><a href="dump.lsp">dump.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:dump<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#gvpno">gvpno</a>, <a href="#mklayr">mklayr</a>, <a href="#txtsize">txtsize</a>, <a href="#uangle">uangle</a>, <a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="dumplst"></a><a href="DUMPLST.LSP">dumplst.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	All rights reserved.
;;;
;;;	Copyright:  
;;;	   Edited:  

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:dumplst<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#gvpno">gvpno</a>, <a href="#mklayr">mklayr</a>, <a href="#txtsize">txtsize</a>, <a href="#uangle">uangle</a>, <a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="dumpobjects"></a><a href="dumpobjects.lsp">dumpobjects.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:dumpobjects<br/>Requires:<a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="dv0"></a><a href="dv0.lsp">dv0.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:dv0<br/>Requires:<a href="#tsnap">tsnap</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="dxfix"></a><a href="dxfix.lsp">dxfix.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  
;;;	   Edited:  

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:dxfix<br/>Requires:<a href="#tsnap">tsnap</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="dynpan"></a><a href="dynpan.lsp">dynpan.lsp</a>
    </td>
    <td>
    <PRE>
;;;Dynamic Zoom/Pan trick.  Best for simpler drawings.
;;;
;;;	Modified from a tip in Cadylst or Cadence (don't remember which).
;;;	Modification requires UINT.LSP and UKWORD.LSP (see UUTILS.LSP)
;;;
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:dynpan, c:predp, dp_error<br/>Requires:<a href="#gpdgn">gpdgn</a>, <a href="#uint">uint</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="ecdata"></a><a href="ecdata.lsp">ecdata.lsp</a>
    </td>
    <td>
    <PRE>
;;;Requires:	LINE entities drawn on layer C-EROC1DATA in profile
;;;		X-coordinates must equal Station values
;;;		Y-coordinates must equal Elevation values at any vertical scale factor (can be x1 or any other factor, x10 is common)
;;;
;;;Useage:	C:DRAWECDATA (used with GPDGN alignment profiles)
;;;			Use to Draw lines along existing grade in profile from grade-break to grade-break wherever erosion control measures are to be used.
;;;			Can be done manually, C:DRAWECDATA is to assist in doing this
;;;		C:ECDATA (used with GPDGN alignment profiles)
;;;			Use after lines are drawn to export station, elevation and slope information along your finish grade for further analysis and/or use in other documents.
;;;			Exported data is comma delimited with the first row containing column headings.
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 1/15/09
;;;		   EDITED: 1/15/09
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:drawecdata, c:ecdata	(), ecdata_error<br/>Requires:<a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="ed"></a><a href="ed.lsp">ed.lsp</a>
    </td>
    <td>
    <PRE>
;;;Auto invoke DDATTE, DDEDIT or DIM NEW based upon filtered selection.
;;;       Routine will only select MTEXT, TEXT, ATTRIB, DIMENSION or
;;;       INSERT w/attrib. It will report the type of entity selected
;;;       if it cannot be edited via the above commands and prompt to
;;;       select again.
;;;
;;;	It was initially intended to be a command, hence the function name
;;;       C:.... Note that the variable pstr is required, e.g. (c:ded pstr).
;;;	pstr is simply the prompt string.  It is set in redefinition
;;;	of the commands that are affected in order to give the expected
;;;	prompts.  Invoke this routine from the redefined ddedit and ddatte.
;;;
;;;	AUTHOR: Henry C. Francis
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	10-3-95
;;;	Edited:		11-04-2011
;;;
;;;     Added entity type "MULTILEADER"
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:ddatte, c:ddedit, c:ed<br/>Requires:<a href="#ded">ded</a>, <a href="#dimscl">dimscl</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="ed2"></a><a href="ed2.lsp">ed2.lsp</a>
    </td>
    <td>
    <PRE>
;Auto invoke DDATTE, DDEDIT or DIM NEW based upon filtered selection.
;       Routine will only select MTEXT, TEXT, ATTRIB, DIMENSION or
;       INSERT w/attrib. It will report the type of entity selected
;       if it cannot be edited via the above commands and prompt to
;       select again.
;
;	It was initially intended to be a command, hence the function name
;       C:.... Note that the variable pstr is required, e.g. (c:ded pstr).
;	pstr is simply the prompt string.  It is set in redefinition
;	of the commands that are affected in order to give the expected
;	prompts.  Invoke this routine from the redefined ddedit and ddatte.
;
;	AUTHOR: Henry C. Francis
;		425 N. ASHE ST.
;		SOUTHERN PINES, NC 28387
;		All rights reserved without prejudice.
;
;	Copyright:	10-3-95
;	Edited:		4-11-97
;
;       Changed selection window to set after each entsel pick.
;       Fixes unexpected selections following transparent zooms.
;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:ddatte, c:ddedit, c:ed<br/>Requires:<a href="#ded">ded</a>, <a href="#dimscl">dimscl</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="edaln"></a><a href="edaln.lsp">edaln.lsp</a>
    </td>
    <td>
    <PRE>
;Edit *.GRD files
;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:edaln<br/>Requires:<a href="#ded">ded</a>, <a href="#dimscl">dimscl</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="edasc"></a><a href="edasc.lsp">edasc.lsp</a>
    </td>
    <td>
    <PRE>
;;;Edit *.asc files
;;;


    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:edasc<br/>Requires:<a href="#ded">ded</a>, <a href="#dimscl">dimscl</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="edatt1"></a><a href="edatt1.lsp">edatt1.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	All rights reserved.
;;;
;;;	Copyright: 4-7-99
;;;	   Edited: 7-23-99

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:ea, c:edatt1<br/>Requires:<a href="#ded">ded</a>, <a href="#dimscl">dimscl</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="edbat"></a><a href="edbat.lsp">edbat.lsp</a>
    </td>
    <td>
    <PRE>
;Edit *.BAT files
;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:edbat<br/>Requires:<a href="#ded">ded</a>, <a href="#dimscl">dimscl</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="edbka"></a><a href="edbka.lsp">edbka.lsp</a>
    </td>
    <td>
    <PRE>
;;;Edit *.BKA files
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:	1994
;;;	Edited:		1-28-2001
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:edbka	(/<br/>Requires:<a href="#ded">ded</a>, <a href="#dimscl">dimscl</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="edcdf"></a><a href="edcdf.lsp">edcdf.lsp</a>
    </td>
    <td>
    <PRE>
;Edit *.GRD files
;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:edcdf<br/>Requires:<a href="#ded">ded</a>, <a href="#dimscl">dimscl</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="edcsv"></a><a href="edcsv.lsp">edcsv.lsp</a>
    </td>
    <td>
    <PRE>
;;;Edit *.csv files
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:edcsv<br/>Requires:<a href="#ded">ded</a>, <a href="#dimscl">dimscl</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="eddat"></a><a href="eddat.lsp">eddat.lsp</a>
    </td>
    <td>
    <PRE>
;Edit *.DAT files
;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:eddat<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="eddcl"></a><a href="eddcl.lsp">eddcl.lsp</a>
    </td>
    <td>
    <PRE>
;Edit *.DCL files
;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:eddcl<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="eddxf"></a><a href="eddxf.lsp">eddxf.lsp</a>
    </td>
    <td>
    <PRE>
;Edit *.DXF files
;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:eddat<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="edecs"></a><a href="edecs.lsp">edecs.lsp</a>
    </td>
    <td>
    <PRE>
;Edit *.GRD files
;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:edecs<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="edfpl"></a><a href="edfpl.lsp">edfpl.lsp</a>
    </td>
    <td>
    <PRE>
;Edit *.FPL files
;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:edfpl<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="edgrd"></a><a href="EDGRD.LSP">edgrd.lsp</a>
    </td>
    <td>
    <PRE>
;Edit *.GRD files
;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:edgrd<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="editlog"></a><a href="editlog.lsp">editlog.lsp</a>
    </td>
    <td>
    <PRE>
;;;Dialog interface for deleting drawing log entries created in a drawing using (log_it) from log_it.lsp
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	9-20-2010
;;;	Edited:		9-20-2010
;;;
;;;****************************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:editlog, delete_logdate, set_editlog_list, show_fname<br/>Requires:<a href="#log_it">log_it</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="editpagesetups"></a><a href="EDITPAGESETUPS.LSP">editpagesetups.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 2-15-2008
;;;		   EDITED: 2-15-2008
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:donepagesetups, c:editpagesetups<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="editptsbycircles"></a><a href="editptsbycircles.lsp">editptsbycircles.lsp</a>
    </td>
    <td>
    <PRE>
;;;Purpose: edit or add TIN points by entities: (1) CIRCLE - uses center point for 3D point information
;;;						(2) POLYLINE - heavy 3D polyline - uses vertex locations for 3D point information
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 5/5/2014
;;;	   Edited: 5/5/2014
;;;
;;;COMMANDS DEFINED:	EDITPTSBYENT & EPBE (long and short command name)
;;;			ADDPTSBYENT & APBE (long and short command name)
;;;
;;;****************************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:addptsbyent, c:apbe, c:editptsbyent, c:epbe, ptsby_error<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="editptsbyent"></a><a href="editptsbyent.lsp">editptsbyent.lsp</a>
    </td>
    <td>
    <PRE>
;;;Purpose: edit or add TIN points by entities: (1) CIRCLE - uses center point for 3D point information
;;;						(2) POLYLINE - heavy 3D polyline - uses vertex locations for 3D point information
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 5/5/2014
;;;	   Edited: 5/15/2014
;;;
;;;COMMANDS DEFINED:	EDITPTSBYENT & EPBE (long and short command name)
;;;			ADDPTSBYENT & APBE (long and short command name)
;;;
;;;****************************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:addptsbyent, c:apbe, c:editptsbyent, c:epbe, ptsby_error<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="edld2i"></a><a href="edld2i.lsp">edld2i.lsp</a>
    </td>
    <td>
    <PRE>
;;;Edit *.LSP files
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:	1994
;;;	Edited:		1-28-2001
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:edld2i	(/<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="edlin"></a><a href="edlin.lsp">edlin.lsp</a>
    </td>
    <td>
    <PRE>
;Edit *.lin files
;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:edlin<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="edlisp"></a><a href="edlisp.lsp">edlisp.lsp</a>
    </td>
    <td>
    <PRE>
;;;Edit *.LSP files
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:	1994
;;;	Edited:		1-28-2001
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:edlisp	(/<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="edlst"></a><a href="edlst.lsp">edlst.lsp</a>
    </td>
    <td>
    <PRE>
;Edit *.LST files
;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:edlst<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="edmenu"></a><a href="edmenu.lsp">edmenu.lsp</a>
    </td>
    <td>
    <PRE>
;Edit *.MNU files
;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:edmenu<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="edmns"></a><a href="edmns.lsp">edmns.lsp</a>
    </td>
    <td>
    <PRE>
;Edit *.MNS files
;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:edmns<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="edout"></a><a href="edout.lsp">edout.lsp</a>
    </td>
    <td>
    <PRE>
;Edit *.OUT files
;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:edout<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="edpara"></a><a href="edpara.lsp">edpara.lsp</a>
    </td>
    <td>
    <PRE>
;;;Edit ParaPIPE *.LSP files
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:	1994
;;;	Edited:		9-30-98
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:edpara	(/<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="edpts"></a><a href="edpts.lsp">edpts.lsp</a>
    </td>
    <td>
    <PRE>
;;;Edit *.pts files
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:edpts<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="edscr"></a><a href="edscr.lsp">edscr.lsp</a>
    </td>
    <td>
    <PRE>
;;;Edit *.SCR files
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:edscr<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="edshp"></a><a href="edshp.lsp">edshp.lsp</a>
    </td>
    <td>
    <PRE>
;Edit *.shp files
;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:edshp<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="edtxt"></a><a href="edtxt.lsp">edtxt.lsp</a>
    </td>
    <td>
    <PRE>
;;;Edit *.txt files
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:edasc, c:edhtm, c:edtdf, c:edtxt<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="edxrl"></a><a href="edxrl.lsp">edxrl.lsp</a>
    </td>
    <td>
    <PRE>
;;;Edit *.xrl files
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:edtdf, c:edxrl<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="elecldrs"></a><a href="elecldrs.lsp">elecldrs.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:elecldrs<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="elevlayer"></a><a href="elevlayer.lsp">elevlayer.lsp</a>
    </td>
    <td>
    <PRE>

;;;separates LWPOLYLINEs to layers by elevations (10', 5', 2', & 1')
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 1-8-09
;;;		   EDITED: 1-8-09
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:elevlayer<br/>Requires:<a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="elpt"></a><a href="elpt.lsp">elpt.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:elpt<br/>Requires:<a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="encase"></a><a href="encase.lsp">encase.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:encase<br/>Requires:<a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table><table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="-make variant stuff"></a><a href="-MAKE VARIANT STUFF.lsp">-make variant stuff.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="endz"></a><a href="endz.lsp">endz.lsp</a>
    </td>
    <td>
    <PRE>
;;;Creates a 3D line with endpoints at invert elevations as determined from the description
;;;or user input if the description could not be used.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  2000
;;;	   Edited:  1/15/2013
;;;
;;;Added command CHKPIPES
;;;
;;;CHKPIPES reads chronological cumulative log files that are automatically
;;;created by ENDZ ("ENDZ Automated 3D Pipe Drawing.log") and compares existing
;;;3D lines in the drawing with it.  Missing 3D lines are either recreated
;;;automatically or the creation location is displayed and the user authorizes
;;;creation of each missing line depending upon which option the user chooses.
;;;
;;;****************************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:chkpipes, c:endz, c:setpipes, dbl_lin_3d, endz_error, endz_layer_ent, size_it, vertoffset<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#3d">3d</a>, <a href="#c3difodoc">c3difodoc</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#mklayr">mklayr</a>, <a href="#uangle">uangle</a>, <a href="#udist">udist</a>, <a href="#uint">uint</a>, <a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#ureal">ureal</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="engrangs"></a><a href="ENGRANGS.lsp">engrangs.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:engrangs<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#3d">3d</a>, <a href="#c3difodoc">c3difodoc</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#mklayr">mklayr</a>, <a href="#uangle">uangle</a>, <a href="#udist">udist</a>, <a href="#uint">uint</a>, <a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#ureal">ureal</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="engrdims"></a><a href="ENGRDIMS.lsp">engrdims.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:engrdims<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#3d">3d</a>, <a href="#c3difodoc">c3difodoc</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#mklayr">mklayr</a>, <a href="#uangle">uangle</a>, <a href="#udist">udist</a>, <a href="#uint">uint</a>, <a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#ureal">ureal</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="engrldrs"></a><a href="ENGRLDRS.lsp">engrldrs.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:engrldrs<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#3d">3d</a>, <a href="#c3difodoc">c3difodoc</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#mklayr">mklayr</a>, <a href="#uangle">uangle</a>, <a href="#udist">udist</a>, <a href="#uint">uint</a>, <a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#ureal">ureal</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="engrldrsob"></a><a href="ENGRLDRSOB.LSP">engrldrsob.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:engrldrsob<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#3d">3d</a>, <a href="#c3difodoc">c3difodoc</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#mklayr">mklayr</a>, <a href="#uangle">uangle</a>, <a href="#udist">udist</a>, <a href="#uint">uint</a>, <a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#ureal">ureal</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="entlst"></a><a href="entlst.lsp">entlst.lsp</a>
    </td>
    <td>
    <PRE>
;;;Writes a file named <dwgname>.ent with entity layer,
;;;linetype, and color (and block name if its a block).
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://paracadd.com
;;;	All rights reserved.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:entlst<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#3d">3d</a>, <a href="#c3difodoc">c3difodoc</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#mklayr">mklayr</a>, <a href="#uangle">uangle</a>, <a href="#udist">udist</a>, <a href="#uint">uint</a>, <a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#ureal">ureal</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="ents"></a><a href="ents.lsp">ents.lsp</a>
    </td>
    <td>
    <PRE>
;;;Lists the entity types in the current drawing
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  
;;;	   Edited:  

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:ents<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#3d">3d</a>, <a href="#c3difodoc">c3difodoc</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#mklayr">mklayr</a>, <a href="#uangle">uangle</a>, <a href="#udist">udist</a>, <a href="#uint">uint</a>, <a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#ureal">ureal</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="epnt"></a><a href="epnt.lsp">epnt.lsp</a>
    </td>
    <td>
    <PRE>
;;;Erase DCA POINT blocks C:EPNT or TIN lines C:ETIN
;;;
;;;		copyright 1995  Henry C. Francis
;;;		425 N. ASHE ST.
;;;		Southern Pines, NC 28387
;;;
;;;	Block name must be POINT.  To adapt for use with other
;;;	block names just replace the string "POINT" below with
;;;	the quoted block name desired (in caps).
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:epnt, c:etin<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#3d">3d</a>, <a href="#c3difodoc">c3difodoc</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#mklayr">mklayr</a>, <a href="#uangle">uangle</a>, <a href="#udist">udist</a>, <a href="#uint">uint</a>, <a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#ureal">ureal</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="erasewpsel"></a><a href="erasewpsel.lsp">erasewpsel.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:erasewpsel, c:ewps<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#3d">3d</a>, <a href="#c3difodoc">c3difodoc</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#mklayr">mklayr</a>, <a href="#uangle">uangle</a>, <a href="#udist">udist</a>, <a href="#uint">uint</a>, <a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#ureal">ureal</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="errortrap"></a><a href="errortrap.lsp">errortrap.lsp</a>
    </td>
    <td>
    <PRE>
;;;(errortrap (quote (setq objDict (vla-item (vla-get-dictionaries (vla-get-activedocument (vlax-get-acad-object) )) "ACAD_IMAGE_DICT" )))

;;;It will return the result if successful, or T if it is successful and the result of the wrapped expression is nil or nil if Not successful.
;;;By putting it inside an if statement allows the program to continue if successful or stop if not.


;;; Standardized Error Trap

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: errortrap<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#3d">3d</a>, <a href="#c3difodoc">c3difodoc</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#mklayr">mklayr</a>, <a href="#uangle">uangle</a>, <a href="#udist">udist</a>, <a href="#uint">uint</a>, <a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#ureal">ureal</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="etlt2cont"></a><a href="etlt2cont.lsp">etlt2cont.lsp</a>
    </td>
    <td>
    <PRE>
;;;Finds layers having linetypes with embedded text and changes their
;;;linetype to continuous.
;;;
;;;	AUTHOR:
;;;		HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;
;;;		All rights reserved.
;;;	web: http://paracadd.com/
;;;
;;;  Copyright: 5/25/01
;;;     Edited: 5/25/01
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:etlt2cont<br/>Requires:<a href="#wipeprom">wipeprom</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="etransfiles"></a><a href="etransfiles.LSP">etransfiles.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: etransdelete, etransfiles, etransmkdir<br/>Requires:<a href="#wipeprom">wipeprom</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="example_transformby"></a><a href="Example_TransformBy.lsp">example_transformby.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: example_transformby<br/>Requires:<a href="#wipeprom">wipeprom</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="exploreobject"></a><a href="exploreobject.lsp">exploreobject.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 7/1/2011
;;;		   EDITED: 7/1/2011
;;;
;;;AeccDbVAlignment
;;;****************************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:exploreobject<br/>Requires:<a href="#wipeprom">wipeprom</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="fadace"></a><a href="FADACE.LSP">fadace.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 8/11/2010
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:fadace<br/>Requires:<a href="#uint">uint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="filediff"></a><a href="filediff.lsp">filediff.lsp</a>
    </td>
    <td>
    <PRE>
;;;Steps through two autolisp or other text files comparing line by line.
;;;When differences are found you can specify the number of additional lines to read independently
;;;for either file in order to resume comparing identical lines (if there are any).
;;;
;;;If you use a synchronizing app for your files and you discover conflicts (both files have been
;;;edited since you last synchronized) then this routine can help you determine what those different
;;;edits are and perhaps keep you from losing valuable work.
;;;
;;;It is also helpful for identifying the differences between versions of your routines or text files.
;;;The larger the file, the more helpful it is.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 1-21-2009
;;;	   Edited: 1-21-2009

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:filediff, c:filedifftxt<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#uint">uint</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="filelist"></a><a href="filelist.lsp">filelist.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:filelist, filelist_err<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="finddwg"></a><a href="finddwg.lsp">finddwg.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 
;;;		   EDITED: 
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:finddwg, c:insertdwg<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="findgrpname"></a><a href="findgrpname.lsp">findgrpname.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: findgrpname<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="findtriangle"></a><a href="findtriangle.lsp">findtriangle.lsp</a>
    </td>
    <td>
    <PRE>
;;;Function (findtriangle <GPDGN alignment definition>) locates the TIN triangle bounding the first point
;;;of the supplied GPDGN alignment definition and returns the point elevation if the triangle exists.
;;;
;;;Requires TIN lines to be on layer w/ name matching *SRF-VIEW*
;;;The function is designed for use by GPDGN (from www.paracadd.com) but can be used stand-alone
;;;via the TINELEV command defined herein.
;;;Results of TINELEV command include highlighting the triangle if found.
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 7/18/2007
;;;		   EDITED: 8/2/2007
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:tinelev, findtriangle, int_elev<br/>Requires:<a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="findtxt"></a><a href="findtxt.lsp">findtxt.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:findtxt, findtxt<br/>Requires:<a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="fix-attribute-layers"></a><a href="FIX-ATTRIBUTE-LAYERS.lsp">fix-attribute-layers.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:fixem<br/>Requires:<a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="fix-title"></a><a href="fix-title.lsp">fix-title.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:fix-title<br/>Requires:<a href="#attupd">attupd</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="fixbars"></a><a href="fixbars.lsp">fixbars.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:fixbars<br/>Requires:<a href="#attupd">attupd</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="fixbd"></a><a href="fixbd.lsp">fixbd.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:fixbd<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="fixbm"></a><a href="fixbm.lsp">fixbm.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  3-16-2001
;;;	   Edited:  3-16-2001

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:atthk<br/>Requires:<a href="#ureal">ureal</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="fixby"></a><a href="fixby.lsp">fixby.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:fixby, set_file_list<br/>Requires:<a href="#ureal">ureal</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="fixdims"></a><a href="fixdims.lsp">fixdims.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:fixdims<br/>Requires:<a href="#ureal">ureal</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="fixdraworder"></a><a href="fixdraworder.lsp">fixdraworder.lsp</a>
    </td>
    <td>
    <PRE>
;; FixDrawOrder.lsp
;;
;; This file defines the FIXDRAWORDER command to repair drawing order tables
;; of block table records, including model space.
;;
;; Rev. #11 (March 06, 2003, 2:30pm)
;; Autodesk, Inc.
;;

;; Using ActiveX functions

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:fixdraworder, fixdraworder, getsortentsbtridgroup, getsortentstableid, updatesortentstable<br/>Requires:<a href="#ureal">ureal</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="fixfield"></a><a href="fixfield.lsp">fixfield.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:fixfield<br/>Requires:<a href="#vpset">vpset</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="fiximagevars"></a><a href="FixImageVars.lsp">fiximagevars.lsp</a>
    </td>
    <td>
    <PRE>
;;;From Autodesk Developer Network.
;;;"How to manipulate Image Variables using Autolisp"
;;;
;;;Set to this file on 3-11-2008
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:fiximagevars, c:iframes, getimageframe, getimagequality, getimagevars, getimagevarsdict	(), setimageframe, setimagequality<br/>Requires:<a href="#vpset">vpset</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="fixplansymbols"></a><a href="FIXPLANSYMBOLS.LSP">fixplansymbols.lsp</a>
    </td>
    <td>
    <PRE>
;;;Resets the position of north arrow, barscale, and plan title, all of which must be in model space and being viewed through the floating viewport (Plan View).
;;;Typically used after repositioning and/or rotating the view.  Barscale and title are rotated to the horizontal if necessary.  North arrow is not.
;;;objects are moved to paper space using CHSPACE and their locations are set to static corrdinates in Paper Space. Then moved to model space again using CHSPACE
;;;
;;;Requirements:	Plan "VIEWPORT" entity must be on layer named "??VI02?????" where ? is any valid layer name character
;;;			Plan "VIEWPORT" entity must occupy the top half of an ANSI-D sheet (so that static paper space corrdinates used in the process will make sense)
;;;			North arrow block name = "northa" (in model space)
;;;			Barscale block name = "<scale>BARS" (in model space) where <scale> is an integer
;;;			Plan title "TEXT" entity on layer named "?-VI022LNTX" (in model space) where ? is any valid layer name 1st character
;;;			All of these elements should exist in the drawing before using this function.
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:	6-18-2014
;;;	   Edited:	6-19-2014
;;;
;;;****************************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:fixplansymbols, c:fxplsy, fixplansymbols_error<br/>Requires:<a href="#gvpno">gvpno</a>, <a href="#uint">uint</a>, <a href="#ustr">ustr</a>, <a href="#vpset">vpset</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="fixrememberfolders"></a><a href="fixrememberfolders.lsp">fixrememberfolders.lsp</a>
    </td>
    <td>
    <PRE>
;;;Resets remembered folders for dialog keys listed if the key exists already.
;;;WARNING: Using registry functions incorrectly can cause serious problems that may
;;;require you to reinstall your operating system. Use the registry functions carefully.
;;;
;;;This autolisp program is provided as-is without any warranty of any kind.
;;;Users must examine this function code and satisfy themselves that this program will
;;;function as they desire.  Users must agree that they are solely responsible for the
;;;results and consequences of their use of this function before they make any use of it.
;;;Any use without such agreement is unlicensed and a violation of the author's copyright.
;;;
;;;Under no circumstances will the author be responsible for any results or consequences
;;;that are in any way related to the use of this function code.
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 2007
;;;		   EDITED: 6/17/2007
;;;
;;;Requires McNeel & Associates DosLib 17.0 (FREE from http://www.mcneel.com/)

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: fixrememberfolders<br/>Requires:<a href="#gvpno">gvpno</a>, <a href="#uint">uint</a>, <a href="#ustr">ustr</a>, <a href="#vpset">vpset</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="fixsubs"></a><a href="fixsubs.lsp">fixsubs.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:fixsubs<br/>Requires:<a href="#gvpno">gvpno</a>, <a href="#uint">uint</a>, <a href="#ustr">ustr</a>, <a href="#vpset">vpset</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="fixsymbdatlist"></a><a href="fixsymbdatlist.lsp">fixsymbdatlist.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: fixsymbdatlist<br/>Requires:<a href="#gvpno">gvpno</a>, <a href="#uint">uint</a>, <a href="#ustr">ustr</a>, <a href="#vpset">vpset</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="fixtitl"></a><a href="fixtitl.lsp">fixtitl.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: fixtitl<br/>Requires:<a href="#attupd">attupd</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="fixtndat"></a><a href="FIXTNDAT.LSP">fixtndat.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  
;;;	   Edited:  

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:fixtndat<br/>Requires:<a href="#attupd">attupd</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="fixwhodunit"></a><a href="fixwhodunit.lsp">fixwhodunit.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:fixwhodunit<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#ukword">ukword</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="flatblks"></a><a href="flatblks.lsp">flatblks.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:flatblks<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#ukword">ukword</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="flatxjoin"></a><a href="flatxjoin.LSP">flatxjoin.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:flatxjoin()<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#ukword">ukword</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="flexcable"></a><a href="flexcable.lsp">flexcable.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:flexcable<br/>Requires:<a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="flip"></a><a href="flip.lsp">flip.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:	7-9-1999
;;;	   Edited:	7-9-1999
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:flip, flip<br/>Requires:<a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="flipa"></a><a href="FLIPA.LSP">flipa.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:	7-9-1999
;;;	   Edited:	10-3-2002
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:flipa<br/>Requires:<a href="#uangle">uangle</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="flipdim"></a><a href="flipdim.lsp">flipdim.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:flipdim<br/>Requires:<a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="flippi"></a><a href="FLIPPI.LSP">flippi.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:	7-9-1999
;;;	   Edited:	7-9-1999
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:flipall, c:flippi<br/>Requires:<a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="flipseal"></a><a href="flipseal.lsp">flipseal.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:flipseal<br/>Requires:<a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="floatdim"></a><a href="floatdim.lsp">floatdim.lsp</a>
    </td>
    <td>
    <PRE>
;;;Modify dimension properties to Move text and add a leader
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 4/2012
;;;	   Edited: 4/2012
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:dimfloat, c:floatdim<br/>Requires:<a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="flog"></a><a href="flog.lsp">flog.lsp</a>
    </td>
    <td>
    <PRE>
;;;Reads DWG_EDIT.LOG and writes parts to FILE1.LOG
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:flog<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="fracdims"></a><a href="fracdims.lsp">fracdims.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:fracdims<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="fracldrs"></a><a href="fracldrs.lsp">fracldrs.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:fracldrs<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="gate"></a><a href="gate.lsp">gate.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:gate<br/>Requires:<a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="gent"></a><a href="gent.lsp">gent.lsp</a>
    </td>
    <td>
    <PRE>
;;;Get entity data. EDUMP, ASO or UCSC the data.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:aso, c:edump, c:gent, c:getobj, c:makeit, c:setucsworld, c:ucsc, c:ucstoggle<br/>Requires:<a href="#tsnap">tsnap</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="getblockinserts"></a><a href="getblockinserts.lsp">getblockinserts.lsp</a>
    </td>
    <td>
    <PRE>
;;;From the swamp 'Bull Frog' (mkweaver)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;  Routine:	 GetBlockInserts							 ;;;
;;;  Purpose:	 Get a list of all insertions of specified blocks.		 ;;;
;;;  Arguments:	 doc - vla-document object (or objectdbx document).  If nil, then;;;
;;;		   the active document is used.					 ;;;
;;;		 bnames - a list of strings, the block names for the subject	 ;;;
;;;		   blocks.							 ;;;
;;;		 ReturnEnames - boolean, non-nil returns entity names, nil	 ;;;
;;;		   returns vla-objects.						 ;;;
;;;  Returns:	 A list of all the insertions of the subject blocks.  -1 if the	 ;;;
;;;		   block is not defined.  Nil if the block is defined but has no	 ;;;
;;;		   insertions, thus:						 ;;;
;;;-----------------------------------------------------------------------------;;;
;;;(("tes1"					 ;insertions of tes1		 ;;;
;;;   #<VLA-OBJECT IAcadBlockReference 0f306ad4>				 ;;;
;;;   #<VLA-OBJECT IAcadBlockReference 242f08e4>				 ;;;
;;;   #<VLA-OBJECT IAcadBlockReference 242ede74>				 ;;;
;;;   #<VLA-OBJECT IAcadBlockReference 242f0724>				 ;;;
;;;   #<VLA-OBJECT IAcadBlockReference 242edee4>				 ;;;
;;;   #<VLA-OBJECT IAcadBlockReference 242efb54>				 ;;;
;;;  )										 ;;;
;;;  ("tes2")					 ;there are no insertions of tes2;;;
;;;  ("tes3" -1)				 ;tes3 doesn't exist		 ;;;
;;;  ("LOGO" #<VLA-OBJECT IAcadExternalReference 0e83b194>);insertions of logo	 ;;;
;;;  ("BRD_TTL" #<VLA-OBJECT IAcadBlockReference 242edb64>);insertions of brd_ttl;;
;;;)										 ;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: getblockinserts(doc<br/>Requires:<a href="#tsnap">tsnap</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="getboundary"></a><a href="getboundary.lsp">getboundary.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:getboundary<br/>Requires:<a href="#c3difodoc">c3difodoc</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="getdefuns"></a><a href="getdefuns.lsp">getdefuns.lsp</a>
    </td>
    <td>
    <PRE>
;;;This will collect function and command names DEFUN'd in selected files and group them by the lisp filename they are in.
;;;It averaged about 22 files per second on over 900 lisp files. several lisp file sizes were over 2MB.
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 07/20/2012
;;;	   Edited: 07/20/2012
;;;
;;;****************************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: ")), *"), *")), c:funfile, c:getdefuns, c:packlsp, c:printfuns, c:usedfuns<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#setautofuns">setautofuns</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="getel"></a><a href="getel.lsp">getel.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  2/10/00
;;;	   Edited:  1/9/2007

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:getel, c:markel<br/>Requires:<a href="#gvpno">gvpno</a>, <a href="#make_layer_ent">make_layer_ent</a>, <a href="#mymldr">mymldr</a>, <a href="#stait">stait</a>, <a href="#tnote">tnote</a>, <a href="#uint">uint</a>, <a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="getfield"></a><a href="getfield.LSP">getfield.lsp</a>
    </td>
    <td>
    <PRE>
;;;From http://forums.autodesk.com/t5/Visual-LISP-AutoLISP-and-General/Extract-Field-Expression/td-p/3364401
;;;Post by gjrcmb
;;;Re: Extract Field Expression 03-09-2012 09:32 AM in reply to: msarqui
;;;Modified to construct the full expression (STRCAT %< before and >% after it) and assign that to symbol fexstr (silently)
;;;fexstr will be fed to text that needs to contain the field value

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: do_attrib, getfield	(enam<br/>Requires:<a href="#gvpno">gvpno</a>, <a href="#make_layer_ent">make_layer_ent</a>, <a href="#mymldr">mymldr</a>, <a href="#stait">stait</a>, <a href="#tnote">tnote</a>, <a href="#uint">uint</a>, <a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="getfiles"></a><a href="getfiles.lsp">getfiles.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 
;;;		   EDITED: 
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:getfiles, getfiles_error<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#xo1">xo1</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="getimages"></a><a href="getimages.LSP">getimages.lsp</a>
    </td>
    <td>
    <PRE>
;;;This function is a subroutine for "our" drawing stamp routine (lbl) defined in lbl.lsp
;;;It assigns to the variable ThisDwgImages a string value that is a list of images in the drawimg.
;;;
;;; AUTHOR: HENRY C. FRANCIS
;;;  425 N. Ashe St.
;;;  Southern Pines, NC 28387
;;;              
;;;  All rights reserved without prejudice.
;;;
;;; Copyright: 2010
;;; Last Edited:  2-24-2011
;;;
;;;Requires rtext-images.dwg which contains an RTEXT image list.  You can recreate it using the RTEXT command.
;;;Using the RTEXT image list directly as part of the stamp is unacceptable as it is a stacked list that
;;;would frequently extend into the drawing area.  rtext-images.dwg  is inserted and exploded twice leaving a
;;;stack of text lines containing image names.  The text lines are read, concatenated into a single string
;;;which is assigned to a lisp variable 'ThisDwgImages', and then the text lines are deleted.
;;;The lisp variable is evaluated by the RTEXT of the drawing stamp (2nd line) to reconstruct the image list.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: getimages<br/>Requires:<a href="#str_to_list">str_to_list</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="getlisp"></a><a href="getlisp.lsp">getlisp.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 
;;;		   EDITED: 
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:getlisp<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="getmenus"></a><a href="getmenus.lsp">getmenus.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 
;;;		   EDITED: 
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:getmenus<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="getpages"></a><a href="getpages.lsp">getpages.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:getmenus<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="getparcels"></a><a href="getparcels.lsp">getparcels.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: getparcels<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="getprop"></a><a href="getprop.lsp">getprop.lsp</a>
    </td>
    <td>
    <PRE>
;;;Author unknown
;;;Gets Drawing Properties
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:getdwgprops, getcustomvar, getedittime<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="getstr"></a><a href="getstr.lsp">getstr.lsp</a>
    </td>
    <td>
    <PRE>
;;;Finds matching text strings in text, mtext, and multileaders

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:getstr<br/>Requires:<a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="getstyle"></a><a href="getstyle.lsp">getstyle.lsp</a>
    </td>
    <td>
    <PRE>
;;;Text style util. Style text ht=0 (getstyle "A"), restore ht (getstyle "").
;;;
;;;       This is necessary to insure the entries following the text
;;;       command call (command ".text"....) will always require text
;;;       height to be entered so that any height may be specified by
;;;       the function.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	6-18-94
;;;	Edited:		3-11-2005
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: getstyle	(gtsty<br/>Requires:<a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="getxrefs"></a><a href="getxrefs.LSP">getxrefs.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: getxrefs<br/>Requires:<a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="glbl"></a><a href="glbl.lsp">glbl.lsp</a>
    </td>
    <td>
    <PRE>
;;;label grid lines and a viewport.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 1991-2004
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:glbl, grd_txt<br/>Requires:<a href="#gvpno">gvpno</a>, <a href="#lamacs">lamacs</a>, <a href="#mklayr">mklayr</a>, <a href="#txtsize">txtsize</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="goaround"></a><a href="goaround.lsp">goaround.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 07/14/2011
;;;	   Edited: 08/17/2015
;;;
;;;Required subroutines: UPOINT.LSP, UREAL.LSP, UKWORD.LSP, CHKKWDS.LSP (all added to the end of this file for simplicity of standalone use)
;;;
;;;C:GOAROUND Creates a reverse curve polyline (Arcs option), or a straight segment polyline (PI option).
;;;C:GOAROUNDPARTS Creates all of the graphic layout elements for the last reverse curve generated in the current session.
;;;
;;;****************************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:goaround, c:goaroundparts, chkkwds, ukword, upoint, ureal<br/>Requires:<a href="#gvpno">gvpno</a>, <a href="#lamacs">lamacs</a>, <a href="#mklayr">mklayr</a>, <a href="#txtsize">txtsize</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="gof"></a><a href="gof.lsp">gof.lsp</a>
    </td>
    <td>
    <PRE>
;;;Layer macros GOF=grid off, GON=grid on, PTOF, PTON, PTFRZ, PTTHW=point....
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;
;;;******** THIS LISP HAS BEEN RETIRED **********
;;;******** SEE LAMACS.LSP **********

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: funfunfunfunfunfunfunfunfunfunfunfunfunfunfunfunfunfunfunfunfunfunfunfunfunfun<br/>Requires:<a href="#gof">gof</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="gradebreak"></a><a href="gradebreak.lsp">gradebreak.lsp</a>
    </td>
    <td>
    <PRE>
;;;Creates 3D breakline between selected AECC_POINT objects
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  12/15/2004
;;;	   Edited:  4/23/2007
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:gbrk, c:gradebreak, gradebreak_error<br/>Requires:<a href="#uangle">uangle</a>, <a href="#udist">udist</a>, <a href="#uint">uint</a>, <a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#ureal">ureal</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="gridstyle"></a><a href="gridstyle.LSP">gridstyle.lsp</a>
    </td>
    <td>
    <PRE>
;;;Change CORP "gridstyle" between 'Legacy' and 'Standard'
;;;Legacy grid style uses a custom measured-dot dotted linetype and different thicknesses of black pens to effect a 'gray' grid
;;;and was used by some users prior to establishing an office 'standard' grid style.
;;;The grid blocks (drawings) have critically measured grid line lengths to effect coincident dots at line intersections.
;;;If the grid line lengths are not set to exact lengths for this effect the grid dot matrix will not be properly constructed.
;;;Standard grid style uses continuous linetype and selected subdued colors from the 256 color palette (56, 109, 169)

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:gridstyle<br/>Requires:<a href="#stdltypes">stdltypes</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="groups"></a><a href="groups.lsp">groups.lsp</a>
    </td>
    <td>
    <PRE>
;;;C:DUNGroups - Deletes unnamed groups from the drawing
;;;C:DEMGroups - Deletes empty groups from the drawing
;;;C:ListGroups - Lists groups in the drawing

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:demgroups, c:dungroups, c:listgroups<br/>Requires:<a href="#stdltypes">stdltypes</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="gstr"></a><a href="gstr.lsp">gstr.lsp</a>
    </td>
    <td>
    <PRE>
;;;"Glue" text strings.  All adopt first's properties.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;
;;;		All rights reserved without prejudice.
;;;	revised: 3/30/2009
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:gstr, c:gstrcdl, c:rgstr<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="gvpno"></a><a href="gvpno.lsp">gvpno.lsp</a>
    </td>
    <td>
    <PRE>
;;;Get current user specified (by layername) model space viewport number.
;;;
;;;Layer name must contain "VI##" where ## is a two digit user specified
;;;view number.  Otherwise you are prompted for the view number.
;;;the variable 'prod is set to "VI##".  (C:MKLAYR) is used to preserve and
;;;then restore the current layer after this function.  Use (C:SVLAYR) before
;;;this function, (C:MKLAYER) during this function and (C:RSLAYR) after.
;;;
;;;A viewport number is returned (and stored in variable 'viewno) only when
;;;called within floating model space (inside a viewport in a layout)
;;;Model space and Paper space both return NIL
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://paracadd.com
;;;	All rights reserved.
;;;
;;;	Revisions:	09/21/2015	coded to make wildcard characters in layout names match as literals
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:vrlay, gvpno<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#errortrap">errortrap</a>, <a href="#set_mjrg">set_mjrg</a>, <a href="#uint">uint</a>, <a href="#ukword">ukword</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="harchdims"></a><a href="harchdims.lsp">harchdims.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:harchdims<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#errortrap">errortrap</a>, <a href="#set_mjrg">set_mjrg</a>, <a href="#uint">uint</a>, <a href="#ukword">ukword</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="harchldrs"></a><a href="harchldrs.lsp">harchldrs.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:harchldrs<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#errortrap">errortrap</a>, <a href="#set_mjrg">set_mjrg</a>, <a href="#uint">uint</a>, <a href="#ukword">ukword</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="hasphdr"></a><a href="hasphdr.LSP">hasphdr.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:hasphdr()<br/>Requires:<a href="#hatbnd">hatbnd</a>, <a href="#procp">procp</a>, <a href="#mklayr">mklayr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="hasphrd"></a><a href="hasphrd.LSP">hasphrd.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:hasphrd()<br/>Requires:<a href="#hatbnd">hatbnd</a>, <a href="#procp">procp</a>, <a href="#mklayr">mklayr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="hatbnd"></a><a href="hatbnd.lsp">hatbnd.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  2005
;;;	   Edited:  2005

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:hatbnd<br/>Requires:<a href="#hatbnd">hatbnd</a>, <a href="#procp">procp</a>, <a href="#mklayr">mklayr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="hatchit"></a><a href="hatchit.lsp">hatchit.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:	10-28-2014
;;;	   Edited:	10-28-2014
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: hatchit<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="hatdiff"></a><a href="hatdiff.lsp">hatdiff.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:hatdiff, c:hd<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="hatdrv"></a><a href="HATDRV.LSP">hatdrv.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:
;;;	   Edited:
;;;****************************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:drvbnd, c:hatdrv, hatdrv_error<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#hatbnd">hatbnd</a>, <a href="#mklayr">mklayr</a>, <a href="#procp">procp</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="hatpat"></a><a href="hatpat.lsp">hatpat.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:
;;;	   Edited:
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: hatpat<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#make_layer_ent">make_layer_ent</a>, <a href="#mklayr">mklayr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="have_irfanview"></a><a href="have_irfanview.lsp">have_irfanview.lsp</a>
    </td>
    <td>
    <PRE>
;;;Checks for the existence of IrfanView.exe and sets symbol 'found_iv' to its path for use by other functions.
;;;if it is found (have_irfanview) returns T in the app it is used in.
;;;
;;;		IrfanView, a free full-featured image editing/conversion application, can be freely downloaded
;;;		from the internet at the time of this writing.
;;;
;;;Function DOS_SPECIALDIR requires the version of Doslib that matches your AutoCAD version.  The correct version
;;;of Doslib is freely available from Robert McNeel & Associates via downloadable from their website.
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 2010
;;;		   EDITED: 8-29-2010
;;;
;;;****************************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: have_irfanview<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="hbcmud"></a><a href="hbcmud.lsp">hbcmud.lsp</a>
    </td>
    <td>
    <PRE>
;;;Place a "hiding" object over a rectangular area (on layer ?-AREA-HIDE).
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;		All rights reserved without prejudice.
;;;	Copyright:      1-26-96
;;;	Edited:		2-7-2002
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: -q, c:hbcmud	(/)<br/>Requires:<a href="#ddhtext">ddhtext</a>, <a href="#dimscl">dimscl</a>, <a href="#gvpno">gvpno</a>, <a href="#mklayr">mklayr</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="hconc"></a><a href="hconc.LSP">hconc.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:hconcdr()<br/>Requires:<a href="#hatbnd">hatbnd</a>, <a href="#procp">procp</a>, <a href="#mklayr">mklayr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="hconcdr"></a><a href="hconcdr.LSP">hconcdr.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:hconcdr()<br/>Requires:<a href="#hatbnd">hatbnd</a>, <a href="#procp">procp</a>, <a href="#mklayr">mklayr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="hdang"></a><a href="hdang.lsp">hdang.lsp</a>
    </td>
    <td>
    <PRE>
;;;Place a "hiding" object over a rectangular area (on layer ?-AREA-HIDE).
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;		All rights reserved without prejudice.
;;;	Copyright:      1-26-96
;;;	Edited:		2-7-2002
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:hdang<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#gvpno">gvpno</a>, <a href="#mklayr">mklayr</a>, <a href="#pttxt">pttxt</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="hdarc"></a><a href="hdarc.lsp">hdarc.lsp</a>
    </td>
    <td>
    <PRE>
;;;Place a "hiding" object over a rectangular area (on layer ?-AREA-HIDE).
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;		All rights reserved without prejudice.
;;;	Copyright:      1-26-96
;;;	Edited:		2-7-2002
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:hdarc<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#gvpno">gvpno</a>, <a href="#mklayr">mklayr</a>, <a href="#pttxt">pttxt</a>, <a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="hdarea"></a><a href="hdarea.lsp">hdarea.lsp</a>
    </td>
    <td>
    <PRE>
;;;Place a "hiding" object over a rectangular area (on layer ?-AREA-HIDE).
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;		All rights reserved without prejudice.
;;;	Copyright:      1-26-96
;;;	Edited:		2-7-2002
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:hdarea<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#gvpno">gvpno</a>, <a href="#mklayr">mklayr</a>, <a href="#pttxt">pttxt</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="hdbox"></a><a href="hdbox.lsp">hdbox.lsp</a>
    </td>
    <td>
    <PRE>
;;;Place a "hiding" object over a rectangular area (on layer ?-AREA-HIDE).
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;		All rights reserved without prejudice.
;;;	Copyright:      1-26-96
;;;	Edited:		2-7-2002
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:hdbox, hdbox_error<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#gvpno">gvpno</a>, <a href="#mklayr">mklayr</a>, <a href="#pttxt">pttxt</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="hdcirc"></a><a href="hdcirc.lsp">hdcirc.lsp</a>
    </td>
    <td>
    <PRE>
;;;Place a "hiding" object over an elliptical area (on layer *7HIDE).
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;		All rights reserved without prejudice.
;;;	Copyright:      1-26-96
;;;	Edited:		6-13-2003
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:hdcirc	(/)<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#gvpno">gvpno</a>, <a href="#mklayr">mklayr</a>, <a href="#pttxt">pttxt</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="hdpipe"></a><a href="hdpipe.lsp">hdpipe.lsp</a>
    </td>
    <td>
    <PRE>
;;;Place a "hiding" object over a rectangular area (on layer ?-AREA-HIDE).
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;		All rights reserved without prejudice.
;;;	Copyright:      1-26-96
;;;	Edited:		2-7-2002
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:hdpipe<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#gvpno">gvpno</a>, <a href="#mklayr">mklayr</a>, <a href="#pttxt">pttxt</a>, <a href="#sslayer">sslayer</a>, <a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="hdrec"></a><a href="hdrec.lsp">hdrec.lsp</a>
    </td>
    <td>
    <PRE>
;Place a "hiding" solid over a rectangular area (on layer ?-NPLTFAREA).
;
;	AUTHOR: HENRY C. FRANCIS
;		425 N. ASHE ST.
;		SOUTHERN PINES, NC 28387
;		All rights reserved without prejudice.
;	Copyright:      1-26-96
;	Edited:		6-4-97
;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:hdrec<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#gvpno">gvpno</a>, <a href="#mklayr">mklayr</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="hdrect"></a><a href="hdrect.lsp">hdrect.lsp</a>
    </td>
    <td>
    <PRE>
;Place a "hiding" solid over a rectangular area (on layer ?-NPLTFAREA).
;
;	AUTHOR: HENRY C. FRANCIS
;		425 N. ASHE ST.
;		SOUTHERN PINES, NC 28387
;		All rights reserved without prejudice.
;	Copyright:      1-26-96
;	Edited:		1-29-98
;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:hdrect<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#gvpno">gvpno</a>, <a href="#mklayr">mklayr</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="hdtext"></a><a href="hdtext.lsp">hdtext.lsp</a>
    </td>
    <td>
    <PRE>
;;;Place "hiding" solids over each text string. (on layer ?-NPLT?????HS).
;;;Adjust spacing using HDSPACE for numeric and HDMATCH for matched text.
;;;
;;;Added exclusion of text with thickness = 1.0
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:      1-26-96
;;;	Edited:		10-25-01
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:ehdt, c:hdmatch, c:hdspace, c:hdtext	(/	ss, c:hdupd<br/>Requires:<a href="#dims">dims</a>, <a href="#hdtext">hdtext</a>, <a href="#pttxt">pttxt</a>, <a href="#ukword">ukword</a>, <a href="#ureal">ureal</a>, <a href="#ustr">ustr</a>, <a href="#uutils">uutils</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="hdtextn"></a><a href="hdtextn.lsp">hdtextn.lsp</a>
    </td>
    <td>
    <PRE>
;;;Place "hiding" solids over each text string. (on layer ?-NPLT?????HS).
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:      1-26-96
;;;	Edited:		10-7-98
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:hdtextn	(/	ss<br/>Requires:<a href="#dims">dims</a>, <a href="#dimscl">dimscl</a>, <a href="#mklayr">mklayr</a>, <a href="#ukword">ukword</a>, <a href="#uutils">uutils</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="headwall"></a><a href="headwall.lsp">headwall.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 2009
;;;		   EDITED: 8-24-2010
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:2ptbox, c:headwall<br/>Requires:<a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#ureal">ureal</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="helphtm"></a><a href="helphtm.lsp">helphtm.lsp</a>
    </td>
    <td>
    <PRE>
;;;HTML browser front end Suitable for inclusion in VLX applications
;;;primarily used to display html help files for ParaCADD's apps
;;;
;;;	AUTHOR:
;;;		HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;
;;;		All rights reserved.
;;;		http://www.paracadd.com/
;;;
;;;  Copyright:	1/27/2002
;;;     Edited:	4/21/2010
;;;
;;;****************************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: helphtm<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="hengrdims"></a><a href="HENGRDIMS.LSP">hengrdims.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:hengrdims<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="hengrldrs"></a><a href="HENGRLDRS.LSP">hengrldrs.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:hengrldrs<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="hfracldrs"></a><a href="hfracldrs.lsp">hfracldrs.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:hfracldrs<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="hgrav"></a><a href="hgrav.LSP">hgrav.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:hgrav()<br/>Requires:<a href="#hatbnd">hatbnd</a>, <a href="#umlt">umlt</a>, <a href="#mklayr">mklayr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="hidepoly"></a><a href="hidepoly.lsp">hidepoly.lsp</a>
    </td>
    <td>
    <PRE>
;;;Creates a duplicate polyline/lwpolyline of specified width on new layer with color 250.
;;;Draworder command is exectued putting new polyline "Under" original polyline.
;;;Color 250 is intended to plot as true white leaving a blank space where the new polyline is.
;;;The net effect is a blank area of the specified width along the original polyline.
;;;Expects CAD Layer Guidelines (CLG) layers which it will match except for color.
;;;If CLG layer is not found it creates a new CLG layer "G-DETLUHIDE" by default.
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 7-29-08
;;;		   EDITED: 7-29-08
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:hidepoly<br/>Requires:<a href="#mklayr">mklayr</a>, <a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="hop"></a><a href="hop.lsp">hop.lsp</a>
    </td>
    <td>
    <PRE>
;;;Set temp. UCS before Bhatch to control hatch origin.
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http:paracadd.com
;;;	All rights reserved.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:hop<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="hrail"></a><a href="hrail.lsp">hrail.lsp</a>
    </td>
    <td>
    <PRE>
;;;Draws Handrail
;;;(constructs any closed polyline, varying width, parallel line object with
;;;flat, round, and/or 45� pointed ends)
;;;Optionally, pointed ends may be 'long' or 'short', and 'above' or 'below', to
;;;simulate angled intersections (�45�) to the drawing plane in one or two axes.
;;;
;;;Use draworder to arrange parts as required.  Use two adjoiningparts with
;;;'open' ends where one end is above and the other end is below another part.
;;;
;;;Requires: MKLAYR.LSP, UUTILS.LSP
;;;Hiding requires: HDCIRC.DWG, HDBOX.DWG, 1X1.BMP
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;	Copyright:	8-22-96
;;;	Edited:		1-22-2008
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:hrail, c:hrupd, hrail_error<br/>Requires:<a href="#mklayr">mklayr</a>, <a href="#n))">n))</a>, <a href="#pttxt">pttxt</a>, <a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="hsoil"></a><a href="hsoil.LSP">hsoil.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:hsoil()<br/>Requires:<a href="#hatbnd">hatbnd</a>, <a href="#umlt">umlt</a>, <a href="#mklayr">mklayr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="hstxt"></a><a href="HSTXT.LSP">hstxt.lsp</a>
    </td>
    <td>
    <PRE>
;;;Place house number text at point location.  (requires PTDCL run first).
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:hstxt<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#gvpno">gvpno</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="hua_a_sheet"></a><a href="hua_a_sheet.lsp">hua_a_sheet.lsp</a>
    </td>
    <td>
    <PRE>
;;;HUA 8-1/2x11 (ANSI A Size Sheet) Title Block Xref attachment function.
;;;Attach at 0,0; scale=1:1; angle=0�.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 3/14/2006
;;;	Edited:	   9/23/2009
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: hua_a_sheet<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#gvpno">gvpno</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="iblk"></a><a href="iblk.lsp">iblk.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;Scaled block insertion routine (dimscale)

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:catv, c:foped, c:fosign, c:gp, c:gw, c:iblk, c:ip, c:lp, c:mb, c:mh, c:nope, c:pp, c:rwmon, c:rwsign, c:sign, c:tped, c:wm, iblk_error<br/>Requires:<a href="#clg5">clg5</a>, <a href="#dimscl">dimscl</a>, <a href="#mklayr">mklayr</a>, <a href="#set-this-anno-scale">set-this-anno-scale</a>, <a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#ureal">ureal</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="ids_edit"></a><a href="ids_edit.lsp">ids_edit.lsp</a>
    </td>
    <td>
    <PRE>
;;;Dialog utility for storing, editing and retrieving/placing Typical Notes into a drawing.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  2/1995
;;;	   Edited:  6/7/2001
;;;
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: add_ids_item	(/), chk_tnlst, del_lines, f_ids, fltr_tnlist, get_dat_file, ids_edit, ids_error, ids_sorter, intchk, pview, repl_item, set_caps, set_ids_ebox, set_ids_list, set_pview, srch_tnlist, upd_ids_dat<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#browser_help">browser_help</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#getstyle">getstyle</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="ihse"></a><a href="ihse.LSP">ihse.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:ihse()<br/>Requires:<a href="#mklayr">mklayr</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="ii"></a><a href="ii.lsp">ii.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  3-3-2001
;;;	   Edited:  3-3-2001

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:ii<br/>Requires:<a href="#mklayr">mklayr</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="imageattachbatch"></a><a href="imageattachbatch.lsp">imageattachbatch.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:ii<br/>Requires:<a href="#mklayr">mklayr</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="imageframes"></a><a href="imageframes.lsp">imageframes.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:imageframeoff, c:imageframeon, imageframes<br/>Requires:<a href="#mklayr">mklayr</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="imagelayers"></a><a href="imagelayers.lsp">imagelayers.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 11/9/2015
;;;	   Edited: 11/9/2015
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:imagelayers<br/>Requires:<a href="#c3difodoc">c3difodoc</a>, <a href="#layentmake">layentmake</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="imagetile"></a><a href="IMAGETILE.LSP">imagetile.lsp</a>
    </td>
    <td>
    <PRE>
;;;I had a bunch of images to tile together all the same size.
;;;This routine helped me do it very quickly.  Manually would have taken too long.
;;;The idea might be of some help but this only works with the exact images names
;;;and paths I needed.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	All rights reserved.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:imagetile<br/>Requires:<a href="#c3difodoc">c3difodoc</a>, <a href="#layentmake">layentmake</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="img"></a><a href="img.lsp">img.lsp</a>
    </td>
    <td>
    <PRE>
;;;Commands DEFUN'd:
;;;	HIDEPREP  (or IMGPREP) initializes attachment of image 1X1.BMP to enable its use. Okay to delete the image occurence from this.
;;;	HIDEDONUT (or IMGDONUT) creates a donut shaped clipped instance of 1x1.bmp.
;;;	HIDEARC   (or IMGARC) creates an arc shaped clipped instance of 1x1.bmp
;;;	HIDEBDRY  creates a new instance of 1x1.bmp and clips it along the selected polyline boundary (arc segments are okay).
;;;	CLIPIMAGE clips an existing instance of any image to a selected polyline boundary.
;;;		  (Boundary should lie within the image for best results, arc segments are NOT followed, see note below)
;;;
;;;	Note:	PLXL.LSP (command: PLXL) will convert polylines with arcs into polylines with multiple straight segments whose vertices lie on the original arc.
;;;		A small user specified deflection angle (5� or less) will produce segments that approximate the appearance of the original arc.
;;;     	Using PLXL allows easy preparation of a polyline for clipping an image using a polyline that had contained arc segments.
;;;		If the arc segments remain in the polyline boundary the resulting image clip boundary will lie straight along the chords of the arcs.
;;;		HIDE... commands handle arcs in polylines internally.
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  2004
;;;	   Edited:  6-17-2010
;;;
;;;
;;;****************************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:clipimage, c:clipoly, c:debugclipoly, c:fadeimage, c:hidearc, c:hidebdry, c:hidedonut, c:hideprep, c:imgarc, c:imgdonut, c:imgpl, c:imgprep, imgarcclp, imgplclp<br/>Requires:<a href="#gvpno">gvpno</a>, <a href="#mklayr">mklayr</a>, <a href="#set_mjrg">set_mjrg</a>, <a href="#uangle">uangle</a>, <a href="#uint">uint</a>, <a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="imgbnd"></a><a href="imgbnd.lsp">imgbnd.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  2009
;;;	   Edited:  2009

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:imgbnd<br/>Requires:<a href="#gvpno">gvpno</a>, <a href="#mklayr">mklayr</a>, <a href="#set_mjrg">set_mjrg</a>, <a href="#uangle">uangle</a>, <a href="#uint">uint</a>, <a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="imgclip"></a><a href="imgclip.lsp">imgclip.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	All rights reserved.
;;;
;;;	Copyright:  
;;;	   Edited:

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:imgclip<br/>Requires:<a href="#uangle">uangle</a>, <a href="#uint">uint</a>, <a href="#upoint">upoint</a>, <a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="imgdet"></a><a href="IMGDET.LSP">imgdet.lsp</a>
    </td>
    <td>
    <PRE>
;;;Detach selected IMAGE.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://paracadd.com
;;;	All rights reserved.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:imgdet	(/<br/>Requires:<a href="#uangle">uangle</a>, <a href="#uint">uint</a>, <a href="#upoint">upoint</a>, <a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="imparea"></a><a href="imparea.lsp">imparea.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Authors: Jason Asbill &
;;;              Henry C. Francis
;;;		 425 N. Ashe St.
;;;		 Southern Pines, NC 28387
;;;		 http://paracadd.com
;;;		 All rights reserved.
;;;
;;;		 COPYRIGHT: 
;;;		    EDITED: 
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:imparea<br/>Requires:<a href="#uangle">uangle</a>, <a href="#uint">uint</a>, <a href="#upoint">upoint</a>, <a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="incr3"></a><a href="incr3.lsp">incr3.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 7/21/2009
;;;		   EDITED: 7/21/2009
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:incr3<br/>Requires:<a href="#uint">uint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="incrasc"></a><a href="incrasc.lsp">incrasc.lsp</a>
    </td>
    <td>
    <PRE>
;;;Resets or increments selected attribute values having alphabetic values from "A" to "Z" or "AA" to "AZ" and so on to "CY"
;;;Optionally omits "I" and "O" to avoid confusion with "1" AND "O" (standard alphabetic detail bubble call-out method).
;;;
;;;Values are incremented one character alphabetically from the initially modified attribute value if the option to sequence values is selected.
;;;
;;;Reset values are determined by an integer offset value (�) which is applied to the current attribute value.
;;;It is not necesary to select the items in alphabetic order when resetting values by an offset.
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 9/2/2009
;;;		   EDITED: 10/18/2011
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:incrasc<br/>Requires:<a href="#uint">uint</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="incratt"></a><a href="incratt.lsp">incratt.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:incratt<br/>Requires:<a href="#uint">uint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="inctxt"></a><a href="inctxt.lsp">inctxt.lsp</a>
    </td>
    <td>
    <PRE>
;;;Creates incremented number text along any angle and with any justification.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://paracadd.com
;;;	All rights reserved.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:inctxt<br/>Requires:<a href="#uint">uint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="initandsdichk"></a><a href="initandsdichk.lsp">initandsdichk.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: initandsdichk<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#(strcat">(strcat</a>, <a href="#acaddoclist">acaddoclist</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#dlog">dlog</a>, <a href="#log_it">log_it</a>, <a href="#make_dimaro">make_dimaro</a>, <a href="#xiupdate">xiupdate</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="insdatablk"></a><a href="insdatablk.LSP">insdatablk.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:
;;;	   Edited:
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:gpdatablk, dodatablkins<br/>Requires:<a href="#gvpno">gvpno</a>, <a href="#make_layer_ent">make_layer_ent</a>, <a href="#uint">uint</a>, <a href="#upoint">upoint</a>, <a href="#vpset">vpset</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="inslay"></a><a href="inslay.lsp">inslay.lsp</a>
    </td>
    <td>
    <PRE>
;;;Display all layers containing specified block inserts.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://paracadd.com
;;;	All rights reserved.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:inslay	(<br/>Requires:<a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="inslayr"></a><a href="inslayr.lsp">inslayr.lsp</a>
    </td>
    <td>
    <PRE>
;;;C:TXTLAYR appends "-TXT" to text's layer name.  C:UNTXTLAYR removes "-TXT" from text's layer name.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  6-30-99
;;;	   Edited:  6-30-99
;;;
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:inslayr, c:uninslayr<br/>Requires:<a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="insnclocmap"></a><a href="insnclocmap.LSP">insnclocmap.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:insnclocmap<br/>Requires:<a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="isands"></a><a href="isands.lsp">isands.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:
;;;	   Edited:
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:isands<br/>Requires:<a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="isolay"></a><a href="isolay.lsp">isolay.lsp</a>
    </td>
    <td>
    <PRE>
;;;Isolates layer name specified through the symbol lname
;;;Thaws all frozen layers only if thawlayer is not NIL
;;;If lname is frozen it will not display if thawlayer is NIL
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 6/2009
;;;		   EDITED: 6/2009
;;;
;;;==================================================================================================

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: isolay<br/>Requires:<a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="isovp"></a><a href="isovp.lsp">isovp.lsp</a>
    </td>
    <td>
    <PRE>
;;;Isolate current Vport annotation (freeze other layers *vi0#* using VPLAYER)
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;	Copyright:	5-28-96
;;;	Edited:		5-28-96
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:isoprof, c:isottlb, c:isov#, c:isovp, c:isovpall<br/>Requires:<a href="#gvpno">gvpno</a>, <a href="#uint">uint</a>, <a href="#vpset">vpset</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="isovpall"></a><a href="isovpall.lsp">isovpall.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://paracadd.com
;;;	All rights reserved.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:isovpall<br/>Requires:<a href="#vpset">vpset</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="itom"></a><a href="itom.lsp">itom.lsp</a>
    </td>
    <td>
    <PRE>
;;;Converts a number in (m)any text string(s) from Feet to Meters.
;;;Adds parenthesis around number.  (uses UINT USTR)
;;;Specify or change precision (decimal places) too.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	9-19-95
;;;	Edited:		9-29-98
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:itom<br/>Requires:<a href="#uint">uint</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="itrl"></a><a href="itrl.LSP">itrl.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:itrl()<br/>Requires:<a href="#mklayr">mklayr</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="join2d"></a><a href="join2d.lsp">join2d.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:join2d<br/>Requires:<a href="#mklayr">mklayr</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="join3d"></a><a href="join3d.lsp">join3d.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:join3d<br/>Requires:<a href="#mklayr">mklayr</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="joinmultiple"></a><a href="joinmultiple.lsp">joinmultiple.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:	7/13/2015
;;;	   Edited:	7/13/2015
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:duplicate, c:jm, c:joinmultiple<br/>Requires:<a href="#mklayr">mklayr</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="jsl"></a><a href="jsl.lsp">jsl.lsp</a>
    </td>
    <td>
    <PRE>
;;;Just set layer by selection
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://paracadd.com
;;;	All rights reserved.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:jsl<br/>Requires:<a href="#mklayr">mklayr</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="justaleader"></a><a href="justaleader.lsp">justaleader.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:justaleader<br/>Requires:<a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="kbnd"></a><a href="kbnd.lsp">kbnd.lsp</a>
    </td>
    <td>
    <PRE>
;;;Create Pline in Mspace matching current Vport boundary and hatch inside.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 1991-2004
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:kbnd<br/>Requires:<a href="#isovp">isovp</a>, <a href="#mklayr">mklayr</a>, <a href="#vpset">vpset</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="keyorder"></a><a href="keyorder.lsp">keyorder.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:keyorder<br/>Requires:<a href="#ukword">ukword</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="keyviews"></a><a href="keyviews.lsp">keyviews.lsp</a>
    </td>
    <td>
    <PRE>
;;;C:SVIEW    - Opens a dialog interface for the functions below
;;;C:KEYVIEWS - prints the saved view names to the text screen
;;;C:SKEYVIEW - saves view names and their associated layer state lists to the drawing
;;;C:DKEYVIEW - deletes saved view names and their saved layer state lists from the drawing
;;;C:RKEYVIEW - restores the saved layer state list associated with a saved view name in the drawing
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 9-18-2010
;;;		   EDITED: 9-18-2010
;;;
;;;	Requires: gvpno.lsp, xrlayers.lsp, ustr.lsp (these may have requirements of their own)
;;;
;;;**************************************************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:dkeyview, c:keyviews, c:rkeyview, c:skeyview, c:sview, c:ukeyview, c:zkeyview, delete_svname, restore_svname, save_svname, set_sview_list, update_svname, zoom_back, zoom_svname<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#gvpno">gvpno</a>, <a href="#ustr">ustr</a>, <a href="#xrlayers">xrlayers</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="kkelv"></a><a href="kkelv.lsp">kkelv.lsp</a>
    </td>
    <td>
    <PRE>
;;;Writes MYKELV.DEF to protect all atoms in ATOMS-FAMILY.
;;;For use with Kelvinator - autolisp symbol scrambling tool.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:kkelv<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#gvpno">gvpno</a>, <a href="#ustr">ustr</a>, <a href="#xrlayers">xrlayers</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="lamacs"></a><a href="lamacs.lsp">lamacs.lsp</a>
    </td>
    <td>
    <PRE>
;;;Layer macros
;;;"GOF" "GON" "PGOF" "PGON" "GROF" "GRON" "PTOF" PTON" "PTFRX" "PTTHW" "TOPON" "TOPOF"
;;;"WDLNOF" "WDLNON" "WDON" "WDOF" "XRON" "XROF" "SVOF" "SVON" "PATOF" "PATON" "RWOF"
;;;"EASOF" "EPOF" "TPOF" "EXOF" "TXTOF" "INSOF" "EROF" "CTOF" "PPOF" "HDOF" "AOF" "AON"
;;;"RWON" "EASON" "EPON" "TPON" "EXON" "TXTON" "INSON" "ERON" "CTON" "PPON" "HDON"
;;;"ALTON" "ALTOF" "ISOALT" "VLOCK" "CCPTOF" CCPTON"
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://paracadd.com
;;;	All rights reserved.
;;;==================================================================================================

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:algnof, c:algnon, c:alnof, c:alnon, c:alt0, c:alt1, c:alt2, c:alt3, c:alt4, c:altof, c:alton, c:aof, c:aon, c:brkof, c:brkon, c:ccptof, c:ccpton, c:clgcolors, c:corof, c:coron, c:corrof, c:corron, c:ctfrz, c:ctof, c:cton, c:ctrlay, c:ctrlayer, c:ctthw, c:ctvpfrz, c:ctvpthw, c:dimlay, c:dimlayer, c:dolb, c:easof, c:eason, c:epof, c:epon, c:erof, c:eron, c:exof, c:exon, c:fillof, c:fillon, c:fkey#, c:fkey##, c:g100, c:g1000, c:g1k, c:g200, c:g500, c:gof, c:gofall, c:gon, c:gonall, c:grof, c:gron, c:hdof, c:hdon, c:hrof, c:hron, c:imgfrz, c:imgo, c:imgof, c:imgon, c:imgthw, c:infof, c:infon, c:infoof, c:infoon, c:insof, c:inson, c:isoalt, c:isoaltvp, c:key#, c:key##, c:keyiso, c:keynn, c:keyoff, c:keyxx, c:lablof, c:lablon, c:lblof, c:lblon, c:mgon, c:npltof, c:nplton, c:offhdsize, c:onhdsize, c:patof, c:paton, c:pgof, c:pgon, c:ppfr, c:ppof, c:ppon, c:ppth, c:prvwof, c:prvwon, c:ptfrz, c:ptof, c:pton, c:ptthw, c:rbarof, c:rbaron, c:restkeys, c:restvpkeys, c:rwof, c:rwon, c:savekeys, c:sbof, c:sbon, c:showkeys, c:sidoff, c:sidon, c:sof, c:son, c:svof, c:svon, c:tinof, c:tinon, c:topof, c:topon, c:tpof, c:tpon, c:txtof, c:txton, c:vl, c:vlock, c:vpkey#, c:vpkey##, c:vpkeyiso, c:vpkeynn, c:vpkeyoff, c:vpkeyon, c:vpkeyxx, c:vpoffhdsize, c:vponhdsize, c:wdlnof, c:wdlnon, c:wdof, c:wdon, c:xrcolors, c:xrgray, c:xrof, c:xron, c:xronall, chkcurlayoff, getfrozenvplayers, help_keys, lamacs_act, massoc, movehdboxes, vplamacs_act<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#chkctabname">chkctabname</a>, <a href="#gvpno">gvpno</a>, <a href="#make_layer_ent">make_layer_ent</a>, <a href="#mklayr">mklayr</a>, <a href="#uint">uint</a>, <a href="#ukword">ukword</a>, <a href="#ustr">ustr</a>, <a href="#xrlayers">xrlayers</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="lapset"></a><a href="LAPSET.lsp">lapset.lsp</a>
    </td>
    <td>
    <PRE>
;;;Set layer color and linetype for selected entity.
;;;If entity colors and linetypes are bylayer the effect is to change the
;;;color and linetype of entities on the selected entity's layer.
;;;
;;;Specifically: This routine allows changing of Xref layer color and linetype
;;;		 by a simple selection of a visible xref entity.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	2-5-96
;;;	Edited:		1-31-2004
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:lapset<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#mklayr">mklayr</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="laybent"></a><a href="laybent.lsp">laybent.lsp</a>
    </td>
    <td>
    <PRE>
;;;Turn off layers, freeze layers, or set to a layer by entity selection.
;;;
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	2-5-96
;;;	Edited:		2-21-2004
;;;
;;;	Made C:SHOLAY a separate file
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:laybent, c:unlay<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#make_layer_ent">make_layer_ent</a>, <a href="#mklayr">mklayr</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="layerlist"></a><a href="layerlist.lsp">layerlist.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:layerlist<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="laylst"></a><a href="laylst.lsp">laylst.lsp</a>
    </td>
    <td>
    <PRE>
;;;Generate a sorted list of layer names in the drawing.
;;;
;;;	The list is written to a
;;;	file named <dwgname>.LAY in the current directory.
;;;	The list can be viewed in AutoCAD by entering
;;;	!newlist at the command prompt.  A page by page
;;;	listing can be viewed by entering LLIST after the
;;;	lay_list routine has been run.
;;;
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	4-28-96
;;;	Edited:		1-31-2003
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:laylst, c:llist<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="laymapcar"></a><a href="laymapcar.lsp">laymapcar.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:layfreezeall, c:layoffall, c:layonall, c:laythawall, layofflist, layonlist<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="layoffall"></a><a href="layoffall.lsp">layoffall.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:layoffall, c:layonall<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="lbl"></a><a href="lbl.lsp">lbl.lsp</a>
    </td>
    <td>
    <PRE>
;;;Automatically stamp drawing with file/user/time/scale information.
;;;	as a string in an attribute called FILSPEC in a block
;;;	named DWGSTAMP.  This block must exist in the drawing or the
;;;        drawing must exist in a directory included in the ACAD= environment
;;;        variable and it must contain an attribute with the tag FILSPEC.
;;;        The attribute is positioned and rotated to fit just inside the
;;;        "binding edge" of any standard sheet size.  Currently all sheet
;;;        sizes except 8.5" x 11" will be stamped	along the short side of
;;;        the sheet in all cases.  The 8.5" x 11"	sheet will be stamped
;;;        along the long side of the sheet.  The "sheet" is defined by
;;;        setting AutoCAD's "limits".
;;;		
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;		All rights reserved without prejudice.
;;;
;;;	LBL.LSP	Copyright:  1991-1995
;;;                   Edited:  11-28-95
;;;                The items are, in order,
;;;       Filespec:          (path\filename)          (dwgprefix + dwgname + .DWG)
;;;       Edited By:         user login name          (environment var.)
;;;       Date:              mm/dd/yy                 (from cdate)
;;;       Time:              hh:mm	                  (from cdate)
;;;       Scale:             nn"=1'-0" or 1"=nn'      (from dimscale and lunits)
;;;       Xref names:        name1, name2, etc.       (from table search)
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:lbl, f_date, f_name, setsclfac<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#attupd">attupd</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#dimscl">dimscl</a>, <a href="#mklayr">mklayr</a>, <a href="#xiupdate">xiupdate</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="lbld"></a><a href="lbld.lsp">lbld.lsp</a>
    </td>
    <td>
    <PRE>
;;;Label lines and polylines with segment distance.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	1996-2013
;;;	Edited:		5-23-2013
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:lbld, c:lbldoptions<br/>Requires:<a href="#remlt">remlt</a>, <a href="#dimscl">dimscl</a>, <a href="#getstyle">getstyle</a>, <a href="#gvpno">gvpno</a>, <a href="#mklayr">mklayr</a>, <a href="#srvang">srvang</a>, <a href="#survang">survang</a>, <a href="#txtsize">txtsize</a>, <a href="#uint">uint</a>, <a href="#ukword">ukword</a>, <a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="lbnd"></a><a href="lbnd.lsp">lbnd.lsp</a>
    </td>
    <td>
    <PRE>
;;;Place a block named LTIC at end of a line.
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:ltic<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#mklayr">mklayr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="ldlsp"></a><a href="ldlsp.lsp">ldlsp.lsp</a>
    </td>
    <td>
    <PRE>
;;;File dialog for loading lisp files.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:ldlsp<br/>Requires:<a href="#edfil)">edfil)</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="ldrfix"></a><a href="ldrfix.lsp">ldrfix.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  
;;;	   Edited:  

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:ldrfix<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#mklayr">mklayr</a>, <a href="#transpt">transpt</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="linedraw"></a><a href="linedraw.lsp">linedraw.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: add-mdash, c:linedraw, c:loadltypes, col_tile, drawpattern, getindex, linedraw_error, ltedit_act, ltlist_act, makeltlists, reset-lt, tile_rect, vi<br/>Requires:<a href="#initandsdichk">initandsdichk</a>, <a href="#mklayr">mklayr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="linejump"></a><a href="linejump.lsp">linejump.lsp</a>
    </td>
    <td>
    <PRE>
;;;Draws an ARC (semicircle) on either side of any line or polyline intersection and trims the line inside the arc.
;;;
;;;Entity definitions are currently stored in variables in anticipation of future code making use of
;;;ENTMAKE, ENTMOD, and/or ENTUPD rather than the TRIM command.  Once written, the code will eliminate arc
;;;creation (except at lines) and the use of the TRIM command and its occasional trim errors (wrong entity trimmed).
;;;
;;;The number of crossing Lines, Polylines, or LWPolylines has been arbitrarily limited to 6. More than 4 increases
;;;the possibility of trimming the wrong line.
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://www.paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 5/3/2010
;;;		   EDITED: 5/3/2010
;;;
;;;	Required subroutines: dimscl.lsp, ureal.lsp, upoint.lsp, ukword.lsp
;;;
;;;****************************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:linejump, c:lj, pick_inters_error<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="lineonpipe"></a><a href="lineonpipe.LSP">lineonpipe.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:lineonpipe<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="linesum"></a><a href="linesum.lsp">linesum.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  4-8-2005
;;;	   Edited:  6-25-2014
;;;
;;;Added Polylines and LWpolylines
;;;Changed data source from entity data to object data.
;;;Note: 3D polylines will return 3D lengths.

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:linesum<br/>Requires:<a href="#3d">3d</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="lisp_sum"></a><a href="lisp_sum.lsp">lisp_sum.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:itout<br/>Requires:<a href="#3d">3d</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="lispfunslist"></a><a href="lispfunslist.LSP">lispfunslist.lsp</a>
    </td>
    <td>
    <PRE>
;;;****************************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:lispfunslist<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="listfuns"></a><a href="listfuns.lsp">listfuns.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: ")), c:listfuns<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#))">))</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="listfuns2"></a><a href="listfuns2.lsp">listfuns2.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:
;;;	   Edited:
;;;
;;;****************************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: ,*(eq, c:listfuns<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#))">))</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="listlayers"></a><a href="listlayers.lsp">listlayers.lsp</a>
    </td>
    <td>
    <PRE>
;;;C:LISTLAYERS Lists all of the layers in the current drawing and their descriptions if applicable.
;;;
;;;(LISTLAYERS)	Creates a sorted list of (<layername> <description>) pairs for all layers in the
;;;		current drawing for subsequent autolisp use.
;;;
;;;variable name of the list is: sorted_ldlist
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 5/19/2011
;;;		   EDITED: 5/19/2011
;;;
;;;****************************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:listlayers, listlayers<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#))">))</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="llsp"></a><a href="llsp.lsp">llsp.lsp</a>
    </td>
    <td>
    <PRE>
;;;Dialog to display/print/save list or load/edit lisp files.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:llsp, chg_drvdir, edit_file, load_file, make_lsp_list, print_list, regen_list, save_list, set_file_list<br/>Requires:<a href="#_file)">_file)</a>, <a href="#ff_name)">ff_name)</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="loadpagesetups"></a><a href="loadpagesetups.lsp">loadpagesetups.lsp</a>
    </td>
    <td>
    <PRE>
;;;Loads standard page setups from PAGESETUP.DWT template file.
;;;Match list of page setup names below, (setq setupslst ...), to setups
;;;named in PAGESETUP.DWT  Changes to PAGESETUP.DWT require changes here.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	All rights reserved.
;;;
;;;	Copyright:  2-8-2002
;;;	   Edited:  2-8-2002
;;;
;;;******************************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:pgset, getpages	(name_to_check, loadpagesetups<br/>Requires:<a href="#getpages">getpages</a>, <a href="#pagesetups)">pagesetups)</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="loadx"></a><a href="loadx.lsp">loadx.lsp</a>
    </td>
    <td>
    <PRE>
;;;Load any *.EXP file (specifically for Automanager Organizer).
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:loadx<br/>Requires:<a href="#getpages">getpages</a>, <a href="#pagesetups)">pagesetups)</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="locatez"></a><a href="locatez.LSP">locatez.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 02-21-2013
;;;	   Edited: 08-7-2014
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:dayltcircle, c:delzcircle, c:locatez, c:lz<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#ureal">ureal</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="log_it"></a><a href="log_it.lsp">log_it.lsp</a>
    </td>
    <td>
    <PRE>
;;;Add or create Log data (EED) in a drawing. (log_it)
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	1-18-1996
;;;	Edited:		9-24-2008
;;;
;;;**************************************************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: log_it, newent, nxdata, update_dwgeditlog<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#ureal">ureal</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="lslbl"></a><a href="lslbl.lsp">lslbl.lsp</a>
    </td>
    <td>
    <PRE>
;;;Custom Dialog routine written for Dennis Facia to label landscape plantings.
;;;Requirements:
;;;      MKLAYR.LSP, MLT.LSP, UUTILS.LSP, GETSTYLE.LSP
;;;      (preexisting routines by H.C. Francis)
;;;
;;;      Author:  Henry C. Francis
;;;               425 N. Ashe Street
;;;               Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;      All rights reserved
;;;
;;;     Created:  3/13/97
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: *error*, c:lslbl, c:lsn, datalst, matllst, set_note, set_reqd<br/>Requires:<a href="#lstbl">lstbl</a>, <a href="#mlt">mlt</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="lsplst-anchors"></a><a href="lsplst-anchors.lsp">lsplst-anchors.lsp</a>
    </td>
    <td>
    <PRE>
;;;Automatically generates complete HTML listing all autolisp files selected.
;;;You may edit for your location but you must leave
;;;the heading with credits to LSPLST.LSP from PARAGLIDE.
;;;
;;;Only those functions that have an explicit (load <function>) statement
;;;or are included in the list represented by the symbol myfuns_lst will
;;;be included in the "Requires" line in the resulting HTML.
;;;
;;;Doslib useage is accounted for separately.
;;;
;;;The existence of myfuns_lst can significantly slow the HTML generation
;;;process.  It is best to include conditional load statements for external
;;;functions in your autolisp files.
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 05-05-2001
;;;>		   EDITED: 01-20-2017
;;;
;;;****************************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:lsplst, c:summarylist<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#listfuns">listfuns</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="lsplst"></a><a href="lsplst.lsp">lsplst.lsp</a>
    </td>
    <td>
    <PRE>
;;;Automatically generates complete HTML listing all autolisp files selected.
;;;You may edit for your location but you must leave
;;;the heading with credits to LSPLST.LSP from PARAGLIDE.
;;;
;;;Only those functions that have an explicit (load <function>) statement
;;;or are included in the list represented by the symbol myfuns_lst will
;;;be included in the "Requires" line in the resulting HTML.
;;;
;;;Doslib useage is accounted for separately.
;;;
;;;The existence of myfuns_lst can significantly slow the HTML generation
;;;process.  It is best to include conditional load statements for external
;;;functions in your autolisp files.
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 05-05-2001
;;;>		   EDITED: 01-20-2017
;;;
;;;****************************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:lsplst, c:summarylist<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#listfuns">listfuns</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="lstr"></a><a href="lstr.lsp">lstr.lsp</a>
    </td>
    <td>
    <PRE>
;;;Place text above or below a line or polyline segment. ("above" breaks @ 107^-287^)
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;	Copyright:	4-7-95
;;;	Edited:		7-25-2007
;;;
;;;Fixed coordinated returned for lines nested in blocks (xrefs).
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:lstr<br/>Requires:<a href="#slent">slent</a>, <a href="#dimscl">dimscl</a>, <a href="#getstyle">getstyle</a>, <a href="#mklayr">mklayr</a>, <a href="#txtsize">txtsize</a>, <a href="#ukword">ukword</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="lstsample"></a><a href="lstsample.lsp">lstsample.lsp</a>
    </td>
    <td>
    <PRE>
;;;List processing example
;;;
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: lstsample<br/>Requires:<a href="#slent">slent</a>, <a href="#dimscl">dimscl</a>, <a href="#getstyle">getstyle</a>, <a href="#mklayr">mklayr</a>, <a href="#txtsize">txtsize</a>, <a href="#ukword">ukword</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="lterm"></a><a href="LTERM.lsp">lterm.lsp</a>
    </td>
    <td>
    <PRE>
;;;Place an arrowhead (block name LDRARO) at end of a line.
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:lterm<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#mklayr">mklayr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="ltgen"></a><a href="ltgen.lsp">ltgen.lsp</a>
    </td>
    <td>
    <PRE>
;;;Modify linetype generation on a selection set of polyline entities.
;;;	The only input
;;;       required is the selection of the polylines to modify.  There
;;;       is no need to worry about not selecting non-polyline entities
;;;       because they will be automatically filtered out of the
;;;       selection set.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;	Copyright:	5-17-94
;;;	Edited:		10-22-2006
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:ltgen<br/>Requires:<a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="ltic"></a><a href="ltic.lsp">ltic.lsp</a>
    </td>
    <td>
    <PRE>
;;;Place a block named LTIC at end of a line.
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:ltic<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#mklayr">mklayr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="lto"></a><a href="lto.lsp">lto.lsp</a>
    </td>
    <td>
    <PRE>
;;;Place an arrowhead (block name LDRARO) at end of a line.
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:lto<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#mklayr">mklayr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="ltp"></a><a href="ltp.lsp">ltp.lsp</a>
    </td>
    <td>
    <PRE>
;Convert lines into a polyline.
;
;	AUTHOR: Henry C. Francis
;		425 N. ASHE ST.
;		Southern Pines, NC 28387
;		All rights reserved without prejudice.
;
;	Copyright:	12-20-94
;	Edited:		11-13-96
;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:ltp<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#mklayr">mklayr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="ltscl"></a><a href="ltscl.lsp">ltscl.lsp</a>
    </td>
    <td>
    <PRE>
;;;Modify the LTSCALE of a selection set of entities. (uses UREAL
;;;       The only input required is the desired ltscale
;;;       and selection of the entities to modify.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http:paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:	6-15-00
;;;	Edited:		6-16-00
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:ltscl<br/>Requires:<a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="ltwid"></a><a href="ltwid.lsp">ltwid.lsp</a>
    </td>
    <td>
    <PRE>
;Modify linetype width of a selection set polyline entities.
;       The only input
;       required is the selection of the polylines to modify.  There
;       is no need to worry about not selecting non-polyline entities
;       because they will be automatically filtered out of the
;       selection set.
;
;	AUTHOR: HENRY C. FRANCIS
;		425 N. ASHE ST.
;		SOUTHERN PINES, NC 28387
;              
;		All rights reserved without prejudice.
;	Copyright:	5-17-94
;	Edited:		3-13-96
;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:ltwid<br/>Requires:<a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="ltxt"></a><a href="ltxt.lsp">ltxt.lsp</a>
    </td>
    <td>
    <PRE>
;;;Place text on polyline or line.  (uses MKLAYR GETSTYLE USTR)
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;	Copyright:	1994-2011
;;;	Edited:		4/27/2011
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:ltxt<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#getstyle">getstyle</a>, <a href="#gvpno">gvpno</a>, <a href="#mklayr">mklayr</a>, <a href="#txtsize">txtsize</a>, <a href="#ukword">ukword</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="make_dimaro"></a><a href="make_dimaro.lsp">make_dimaro.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 
;;;		   EDITED: 
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: make_dimaro<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#getstyle">getstyle</a>, <a href="#gvpno">gvpno</a>, <a href="#mklayr">mklayr</a>, <a href="#txtsize">txtsize</a>, <a href="#ukword">ukword</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="make_layer_ent"></a><a href="make_layer_ent.LSP">make_layer_ent.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 
;;;		   EDITED: 
;;;
;;;Requires: mklayr.lsp, stdltypes.lsp, 
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: make_layer_ent<br/>Requires:<a href="#mklayr">mklayr</a>, <a href="#stdltypes">stdltypes</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="makedirs"></a><a href="makedirs.lsp">makedirs.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;      Author:  Henry C. Francis
;;;               425 N. Ashe Street
;;;               Southern Pines, NC 28387
;;;
;;;      All rights reserved without prejudice.
;;;
;;;     Created:  9/21/2015
;;;      Edited:  9/21/2015
;;;
;;;********************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:makedirs, makedir_error, set_folder_list, set_mkdpath<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#set_drive_letters">set_drive_letters</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="makefolders"></a><a href="makefolders.lsp">makefolders.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:
;;;	   Edited:
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:makefolders<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="makegroup"></a><a href="makegroup.lsp">makegroup.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 1-25-2013
;;;	   Edited: 1-25-2013
;;;
;;;****************************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: makegroup<br/>Requires:<a href="#groups">groups</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="makeinsert"></a><a href="makeinsert.lsp">makeinsert.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 
;;;		   EDITED: 
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: makeinsert<br/>Requires:<a href="#groups">groups</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="makenotes"></a><a href="makenotes.lsp">makenotes.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:makenotes, c:mltnotes<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#dimscl">dimscl</a>, <a href="#gvpno">gvpno</a>, <a href="#make_layer_ent">make_layer_ent</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="makestddirs"></a><a href="makestddirs.lsp">makestddirs.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 6-1-2015
;;;	   Edited: 6-1-2015
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:makestddirs<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#set_drive_letters">set_drive_letters</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="mapout"></a><a href="mapout.lsp">mapout.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:mapout<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#set_drive_letters">set_drive_letters</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="masfen"></a><a href="masfen.lsp">masfen.lsp</a>
    </td>
    <td>
    <PRE>
;Place masonry fence linear symbol as anonymous block.

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:masfen<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="matchvctr"></a><a href="matchvctr.lsp">matchvctr.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 5/24/2010
;;;		   EDITED: 5/24/2010
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:matchvctr, c:matchviewcenters, c:mvc, c:mvpctr<br/>Requires:<a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="maxmin"></a><a href="maxmin.lsp">maxmin.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:maxmin, stabreak<br/>Requires:<a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="mcloud"></a><a href="mcloud.lsp">mcloud.lsp</a>
    </td>
    <td>
    <PRE>
;;;Creates LWPolyline with fixed length arcs
;;;Can be used to make cloud symbol.
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 8/2/2007
;;;		   EDITED: 8/16/2007
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:mcloud, c:rmcloud<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#mklayr">mklayr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="mcpu_d_sheet"></a><a href="mcpu_d_sheet.lsp">mcpu_d_sheet.lsp</a>
    </td>
    <td>
    <PRE>
;;;CORP 34x22 (ANSI D Size Sheet) Title Block Xref attachment function.
;;;Attach at 0,0; scale=1:1; angle=0�.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Edited:	5-8-2014
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: copy-tb-to-project-folder, mcpu_d_sheet<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#set_drive_letters">set_drive_letters</a>, <a href="#setstdpage">setstdpage</a>, <a href="#ukword">ukword</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="mddatte"></a><a href="mddatte.lsp">mddatte.lsp</a>
    </td>
    <td>
    <PRE>
;;;Multiple block attribute edits
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://paracadd.com
;;;	All rights reserved.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:mddatte<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#set_drive_letters">set_drive_letters</a>, <a href="#setstdpage">setstdpage</a>, <a href="#ukword">ukword</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="measd"></a><a href="measd.lsp">measd.lsp</a>
    </td>
    <td>
    <PRE>
;Measure distance and preserve variables for use with commands.

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:measd, c:ulnum, measd_error, survang<br/>Requires:<a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="mechdims"></a><a href="mechdims.lsp">mechdims.lsp</a>
    </td>
    <td>
    <PRE>
;;;This autolisp routine was created using:
;;;	WDIMSTYLE.LSP
;;;	By: Henry C. Francis
;;;	All rights reserved
;;;	www.paracadd.com
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:mechdims<br/>Requires:<a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="menubackup"></a><a href="menubackup.lsp">menubackup.lsp</a>
    </td>
    <td>
    <PRE>
;;;Locates BMPs associated with a menu and copies them, the .MNL (if exists), and the selected .MNS file
;;;to the BAKUP subfolder to the menu folder.
;;;Lists BMP's that are not found in the AutoCAD Support File Search Path.
;;;Look in the folder that the menu was loaded into AutoCAD from for these BMPs.
;;;Add their path to the AutoCAD Support File Search Path and rerun MENUBACKUP to copy them to the BAKUP folder.
;;;
;;;	Requires: DOSLIB (free from McNEEL & Associates)
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 1-26-2006
;;;	   Edited: 1-26-2006
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:menubackup<br/>Requires:<a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="mesh2pl"></a><a href="mesh2pl.lsp">mesh2pl.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;Convert Polyline Mesh to a Polyline
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  
;;;	   Edited:  

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:mesh2pl<br/>Requires:<a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="mgn"></a><a href="mgn.lsp">mgn.lsp</a>
    </td>
    <td>
    <PRE>
;;;Place a Magnetic North Symbol (block) in the drawing at any orientation.
;;;(uses UPOINT)
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	5-27-94
;;;	Edited:		2-23-96
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:mgn<br/>Requires:<a href="#mklayr">mklayr</a>, <a href="#dimscl">dimscl</a>, <a href="#gvpno">gvpno</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="mhang"></a><a href="mhang.lsp">mhang.lsp</a>
    </td>
    <td>
    <PRE>
;;;Place a fixed radius DMS angle dim. (w/o DIM). Fills in leading zeros.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;	
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	5-28-96
;;;	Edited:		1-25-2013
;;;
;;;	Separated "Label/Display" and format prompts , added option to label in degrees.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:mhang, makedimaro, mh_survang, mhang_error<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#gvpno">gvpno</a>, <a href="#make_layer_ent">make_layer_ent</a>, <a href="#makegroup">makegroup</a>, <a href="#txtsize">txtsize</a>, <a href="#ukword">ukword</a>, <a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="mhe"></a><a href="mhe.lsp">mhe.lsp</a>
    </td>
    <td>
    <PRE>
;Place a sized ellipse to scale at the station and invert supplied to it.
;
;	AUTHOR: Henry C. Francis
;		425 N. ASHE ST.
;		SOUTHERN PINES, NC 28387
;
;		All rights reserved without prejudice.
;
;	Copyright:	3-2-95
;	Edited:		6-20-96
;
;       PURPOSE:        This program will place a sized ellipse to scale at
;                       the station and invert supplied to it.  It is for
;                       profiles with a vertical scale 10x the horizontal
;                       scale.
;
;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:mhe<br/>Requires:<a href="#mklayr">mklayr</a>, <a href="#uint">uint</a>, <a href="#upoint">upoint</a>, <a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="mhel"></a><a href="mhel.lsp">mhel.lsp</a>
    </td>
    <td>
    <PRE>
;;;modify RIM ELEV. text to match SDSK point value (rnd to 10th).
;;;Requires SDSK point block with correct elevation and
;;;existing RIM ELEV. text string
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://paracadd.com
;;;	All rights reserved.
;;;
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:mhel<br/>Requires:<a href="#mklayr">mklayr</a>, <a href="#uint">uint</a>, <a href="#upoint">upoint</a>, <a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="mhlbl"></a><a href="mhlbl.lsp">mhlbl.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 1997
;;;	   Edited: 12-9-2016
;;;****************************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:imh, c:mhlbl<br/>Requires:<a href="#mklayr">mklayr</a>, <a href="#dimscl">dimscl</a>, <a href="#gvpno">gvpno</a>, <a href="#stait">stait</a>, <a href="#uint">uint</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="mhproj"></a><a href="mhproj.lsp">mhproj.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 9-12-08
;;;		   EDITED: 10-16-08
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:mhproj, mhproj_error<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#pttxt">pttxt</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="mklayr"></a><a href="mklayr.lsp">mklayr.lsp</a>
    </td>
    <td>
    <PRE>
;;;Save, Restore and Make layer utilities.  (uses modified CLG format)
;;;
;;;       This function is to save layer settings before running a utility
;;;       that sets its own layer so that the previous condition can be
;;;       restored.
;;;
;;;       Contains many layer related command and function definitions:
;;;
;;;	C:ALLON     C:CLGCOLOR     C:CLGLTYPE     C:CLGMAJOR     c:clgminor
;;;	c:clgmodif  c:clguser      c:clgvport     C:CLTHID       c:mklayr
;;;	c:rslayr    C:SRLAYER      c:svlayr       c:updlay       clcoxst
;;;	clltxst     clmgxst        clnmstd        force_layoff   force_layoffreeze
;;;	force_layonthaw            force_layunlock               get_lt
;;;	hycolr      layentmake     layentupdate   nonstd-nomod-msg
;;;	set_color_# set_layer_ltype_name          tlnmstd
;;;
;;;****************************************************************************
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://www.paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 5-18-95
;;;		   EDITED: 7-22-2016
;;;
;;;	Changed layer name modification routines to work properly while REFEDIT is active (accounts for $0$* layer names)
;;;
;;;	Added CLGLTYPE help to put a linetype name with the available symbols
;;;
;;;	Requires: set_mjrg.lsp, ustr.lsp, ukword.lsp, unit.lsp, make_layer_ent.lsp
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:allon, c:appendlayer, c:clg5user, c:clgcolor, c:clgltype, c:clgmajor, c:clgminor, c:clgmodif, c:clguser, c:clgvport, c:clthid, c:mklayr, c:rslayr, c:srlayer, c:svlayr, c:updlay, clcoxst, clltxst, clmgxst, clnmstd, force_layoff, force_layoffreeze, force_layonthaw, force_layunlock, get_lt, hycolr, layentmake, layentupdate, mklayr_error, nonstd-nomod-msg, set_color_#, set_layer_ltype_name, tlnmstd<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#initandsdichk">initandsdichk</a>, <a href="#make_layer_ent">make_layer_ent</a>, <a href="#set_mjrg">set_mjrg</a>, <a href="#srstring">srstring</a>, <a href="#uint">uint</a>, <a href="#ukword">ukword</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="mkstddir"></a><a href="mkstddir.lsp">mkstddir.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:mkstddir<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="mlins"></a><a href="mlins.lsp">mlins.lsp</a>
    </td>
    <td>
    <PRE>
;;;Inserts a match line along the alignment (requires GPDGN alignment)
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://paracadd.com
;;;	All rights reserved.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:mlins<br/>Requires:<a href="#uint">uint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="mlsleft"></a><a href="mlsleft.lsp">mlsleft.lsp</a>
    </td>
    <td>
    <PRE>
;;;Authored by Lee Mac and posted to AutoCAD forums on 10-02-2013

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:mlsleft<br/>Requires:<a href="#uint">uint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="mlt"></a><a href="mlt.lsp">mlt.lsp</a>
    </td>
    <td>
    <PRE>
;;;Place leader and single or multiple line text notes. ~ reissues last note text for that line.
;;;
;;;	This program will place a leader with a vertical line for multiline
;;;	notes in the drawing.  the leader may be single or multiple lines
;;;	at any angle.  A vertical line will be placed at the end of the last
;;;	leader line if you input points for its Y values.  After the vertical
;;;	line is placed the notes and line are repositioned so that the vertical
;;;     line is centered on the end of the last leader line.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;	
;;;		All rights reserved without prejudice.
;;;	Copyright:	4-14-1994
;;;	Edited:		7-17-2015
;;;
;;;	Requires Lisp files: uutils, getstyle, dimscl, gvpno, mklayr, txtsize
;;;	Requires DWG file: Ldraro
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:ldropts, c:mlt, makenoteheader, mlt_error, pgld_makeleader<br/>Requires:<a href="#archldrs">archldrs</a>, <a href="#dimscl">dimscl</a>, <a href="#getstyle">getstyle</a>, <a href="#gvpno">gvpno</a>, <a href="#harchldrs">harchldrs</a>, <a href="#mklayr">mklayr</a>, <a href="#ntxtstr">ntxtstr</a>, <a href="#set_mjrg">set_mjrg</a>, <a href="#txtsize">txtsize</a>, <a href="#uangle">uangle</a>, <a href="#udist">udist</a>, <a href="#uint">uint</a>, <a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#ureal">ureal</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="mltht"></a><a href="mltht.lsp">mltht.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:
;;;	   Edited:
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:mltht, c:showmlth<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="mltstyle"></a><a href="mltstyle.LSP">mltstyle.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: addnewtextstyle, c:mltstyle, c:updatetextstyles, fun, listtextstyles<br/>Requires:<a href="#errortrap">errortrap</a>, <a href="#mlsleft">mlsleft</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="mnucmd"></a><a href="mnucmd.lsp">mnucmd.lsp</a>
    </td>
    <td>
    <PRE>
;;;Sets POP0 menu to either POPPIPE or the active CLG Major Group.
;;;Define submenus in the MNS file and swap them in this fashion.

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: mnucmd<br/>Requires:<a href="#errortrap">errortrap</a>, <a href="#mlsleft">mlsleft</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="modtinpts"></a><a href="modtinpts.lsp">modtinpts.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:addtinpts, c:modtinpts<br/>Requires:<a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="movetitl"></a><a href="movetitl.lsp">movetitl.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: movetitl<br/>Requires:<a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="movez"></a><a href="movez.lsp">movez.lsp</a>
    </td>
    <td>
    <PRE>
;;;Changes Z coordinate to new value.  Uses Move trick to zero out Z value first.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  9-3-2002
;;;	   Edited:  9-3-2002

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:movez<br/>Requires:<a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="mpdrop"></a><a href="mpdrop.lsp">mpdrop.lsp</a>
    </td>
    <td>
    <PRE>
;;;Converts Mpolygon entities into Polylines
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:mpdrop<br/>Requires:<a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="mpe"></a><a href="mpe.lsp">mpe.lsp</a>
    </td>
    <td>
    <PRE>
;;;Place pvmt edge blocks on 'right' side of polyline beginning at nearest end.
;;;Requires blocks PE and PEO (Pvmt Edge and Pvmt Edge Other side).
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://paracadd.com
;;;	All rights reserved.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:mpe<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#ukword">ukword</a>, <a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="mpn"></a><a href="mpn.lsp">mpn.lsp</a>
    </td>
    <td>
    <PRE>
;;;Place a Map North Symbol "n" (block) in the drawing.  (uses UPOINT)
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;		All rights reserved without prejudice.
;;;	Copyright:	5-27-94
;;;	Edited:		11-16-2005
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:mpn<br/>Requires:<a href="#mklayr">mklayr</a>, <a href="#dimscl">dimscl</a>, <a href="#gvpno">gvpno</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="mpnh"></a><a href="mpnh.lsp">mpnh.lsp</a>
    </td>
    <td>
    <PRE>
;;;Place a Map North Symbol "n" (block) in the drawing.  (uses UPOINT)
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;		All rights reserved without prejudice.
;;;	Copyright:	5-27-94
;;;	Edited:		11-20-2013
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:mpnh<br/>Requires:<a href="#mklayr">mklayr</a>, <a href="#dimscl">dimscl</a>, <a href="#gvpno">gvpno</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="mss"></a><a href="mss.lsp">mss.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:mss, c:resetmss<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#uint">uint</a>, <a href="#ukword">ukword</a>, <a href="#ureal">ureal</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="msview"></a><a href="msview.LSP">msview.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:
;;;	   Edited:
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:msview	()<br/>Requires:<a href="#tsnap">tsnap</a>, <a href="#ukword">ukword</a>, <a href="#vpbnd">vpbnd</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="mt2ml"></a><a href="mt2ml.lsp">mt2ml.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:	Unknown
;;;
;;;	From AUGI Forum
;;;	Posted by: icbinr
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:mltstyle, c:mt2ml<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#gvpno">gvpno</a>, <a href="#mklayr">mklayr</a>, <a href="#set_mjrg">set_mjrg</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="mtextexp"></a><a href="mtextexp.lsp">mtextexp.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:mltexp, c:mtextexp, mtextexp-error<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#gvpno">gvpno</a>, <a href="#mklayr">mklayr</a>, <a href="#set_mjrg">set_mjrg</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="mtoi"></a><a href="mtoi.lsp">mtoi.lsp</a>
    </td>
    <td>
    <PRE>
;;;Convert a number in (m)any text string(s) from meters to feet.
;;;Adds parenthesis around number.  (uses UINT USTR)
;;;Specify or change precision (decimal places) too.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	9-19-95
;;;	Edited:		9-29-98
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:mtoi<br/>Requires:<a href="#uint">uint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="mvsta"></a><a href="mvsta.lsp">mvsta.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:mvsta<br/>Requires:<a href="#uint">uint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="mxplode"></a><a href="MXPLODE.LSP">mxplode.lsp</a>
    </td>
    <td>
    <PRE>
;; MXPLODE.LSP    Training Department - 2/19/91  Release 11
;
;     Copyright (C) 1991-92 by Autodesk, Inc.
;
;     Permission to use, copy, modify, and distribute this software 
;     for any purpose and without fee is hereby granted, provided 
;     that the above copyright notice appears in all copies and that 
;     both that copyright notice and this permission notice appear in 
;     all supporting documentation.
;
;     THIS SOFTWARE IS PROVIDED "AS IS" WITHOUT EXPRESS OR IMPLIED
;     WARRANTY.  ALL IMPLIED WARRANTIES OF FITNESS FOR ANY PARTICULAR
;     PURPOSE AND OF MERCHANTABILITY ARE HEREBY DISCLAIMED.
;     ****************************************************************
;; This routine explodes uniformly scaled blocks that have
;; been mirrored, or blocks inserted with both negative and
;; positive xyz scale factors (i.e. 1 -1 -1).
;; The steps taken are as follows:

;;  1)  Select enitity
;;  2)  Find x, y, & z scale factors
;;  3)  Check to see if selected entity is a block with or
;;      without uniform scale factors
;;  4)  Check to see if block has uniform absolute scale
;;      factors
;;  5)  Switch UCS to view
;;  6)  Copy block off screen
;;  7)  Switch to UCS of the the copied block insertion and
;;      modify (entmod) its scale factors
;;  8)  Explode block
;;  9)  Collect entities resulting from explode into a set
;; 10)  Reposition the selection set back into place
;; 11)  Erase originally selected block insertion
;; 12)  Switch back UCS back to view, and move entites into
;;      position
;; 13)  Switch back to original UCS

;; Step 5,6,11, & 12 are not necessary.  It is done so the 
;; user does not see the modified block being mirrored or
;; rotated into place.



    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: -x-yz, -xy-z, -xyz, c:mxplode, m-err, x-y-z, x-yz, xy-z<br/>Requires:<a href="#uint">uint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="myatoms"></a><a href="myatoms.lsp">myatoms.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:getmyatoms, c:initatoms, c:killmyatoms, c:listmyatoms<br/>Requires:<a href="#uint">uint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="myblks"></a><a href="myblks.lsp">myblks.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:myblks<br/>Requires:<a href="#getblockinserts">getblockinserts</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="mydim"></a><a href="mydim.lsp">mydim.lsp</a>
    </td>
    <td>
    <PRE>
;;;Requires (ARXUNLOAD "ACDIM") before first run to enable this defun as (C:DIM) in lieu of AutoCAD's built in DIMension functions.
;;;typing (ARXLOAD "ACDIM") at the command prompt will load ACDIM.ARX restoring the default DIM command.
;;;
;;;Purpose:
;;;
;;;    Automatically set view dependent layers for dimensions within floating viewports so that their display can easily
;;;    be isolated to the view they are in.
;;;
;;;Limitations:
;;;
;;;    This function can only be used for Horizontal or Vertical dimensions.
;;;    While using this function you cannot select the entity to dimension, you must select both extension line origins.
;;;
;;;Subroutines used:
;;;
;;;    mklayr.lsp, gvpno.lsp, ukword.lsp, upoint.lsp, ustr.lsp
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 6-19-2009
;;;		   EDITED: 2-10-2011
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:acdim, c:dim, c:dimlay, c:mydim, mydim_error<br/>Requires:<a href="#gvpno">gvpno</a>, <a href="#mklayr">mklayr</a>, <a href="#set_mjrg">set_mjrg</a>, <a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="mydim2"></a><a href="mydim2.lsp">mydim2.lsp</a>
    </td>
    <td>
    <PRE>
;;;Requires (ARXUNLOAD "ACDIM") before first run to enable this defun in lieu of AutoCAD's built in DIMension functions.
;;;typing (ARXLOAD "ACDIM") at the command prompt will load ACDIM.ARX restoring the default DIM command.
;;;
;;;Purpose:
;;;
;;;    Automatically set view dependent layers for dimensions within floating viewports so that their display can easily
;;;    be isolated to the view they are in.
;;;
;;;Limitations:
;;;
;;;    This function can only be used for Horizontal or Vertical dimensions.
;;;    While using this function you cannot select the entity to dimension, you must select both extension line origins.
;;;
;;;Subroutines used:
;;;
;;;    mklayr.lsp, gvpno.lsp, ukword.lsp, upoint.lsp, ustr.lsp
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 6-19-2009
;;;		   EDITED: 2-10-2011
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:dim<br/>Requires:<a href="#gvpno">gvpno</a>, <a href="#mklayr">mklayr</a>, <a href="#set_mjrg">set_mjrg</a>, <a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="mydimstyles"></a><a href="mydimstyles.lsp">mydimstyles.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:elldrs, c:ftdims, c:ftldrs, c:indims, c:inldrs, c:mydimstyles<br/>Requires:<a href="#archdims">archdims</a>, <a href="#archldrs">archldrs</a>, <a href="#elecldrs">elecldrs</a>, <a href="#engrdims">engrdims</a>, <a href="#engrldrs">engrldrs</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="mymldr"></a><a href="MyMLdr.lsp">mymldr.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	2006
;;;	Edited:		1-20-2016
;;;
;;;****************************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:mltang, c:mltarrow, c:mltcolor, c:mltdot, c:mltelev, c:mlthalf, c:mlthelp, c:mltht, c:mltjust, c:mltloop, c:mltrot, c:mltscale, c:mltspot, c:mltstd, c:mlttilde, c:mltutils, c:mltwid, c:mtognew, c:mymldr, c:showmlth, c:tl, elevation-mlt, half-mlt, mymldr_error, spot-mlt, standard-mlt<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#dimscl">dimscl</a>, <a href="#errortrap">errortrap</a>, <a href="#getstyle">getstyle</a>, <a href="#gvpno">gvpno</a>, <a href="#mklayr">mklayr</a>, <a href="#mltstyle">mltstyle</a>, <a href="#remlt">remlt</a>, <a href="#truecolor">truecolor</a>, <a href="#uint">uint</a>, <a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="mymview"></a><a href="mymview.lsp">mymview.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 3-5-2008
;;;		   EDITED: 3-5-2008
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:mymview<br/>Requires:<a href="#clg_color">clg_color</a>, <a href="#make_layer_ent">make_layer_ent</a>, <a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="myopen_fun"></a><a href="myopen_fun.lsp">myopen_fun.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;**************************************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: debug_what_to_do, myopen_fun<br/>Requires:<a href="#acaddoclist">acaddoclist</a>, <a href="#dlog">dlog</a>, <a href="#errortrap">errortrap</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="myopencmd"></a><a href="myopencmd.lsp">myopencmd.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;**************************************************************************************
;;;
;;;NOTE:
;;;Some problems (crashing AutoCAD) will happen randomly when .OPEN is called from within
;;;autolisp routines.  It has been observed that this problem never or very rarely occurs
;;;when drawings are opened using a script.  This is true regardless of how many drawings
;;;are opened in succession using the script; therefore, the autolisp calls for the .OPEN
;;;command herein have been replaced by script execution of the .OPEN command in the hope
;;;of eliminating or greatly reducing the number of crashes resulting from autolisp calls
;;;to the .OPEN command.
;;;
;;;**************************************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: debug_what_to_do, myopen_fun, myopencmd<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#\">\</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#chkxrefsizes">chkxrefsizes</a>, <a href="#dlog">dlog</a>, <a href="#initandsdichk">initandsdichk</a>, <a href="#log_it">log_it</a>, <a href="#princdebugstrs">princdebugstrs</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="mypl"></a><a href="mypl.lsp">mypl.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:mypl<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#\">\</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#chkxrefsizes">chkxrefsizes</a>, <a href="#dlog">dlog</a>, <a href="#initandsdichk">initandsdichk</a>, <a href="#log_it">log_it</a>, <a href="#princdebugstrs">princdebugstrs</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="myplotdwg"></a><a href="MyPlotDWG.LSP">myplotdwg.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:myplotdwg()<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#autodpifix">autodpifix</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="myqsave"></a><a href="MYQSAVE.lsp">myqsave.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	All rights reserved.
;;;
;;;	Copyright:  
;;;	   Edited:  

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:qsave<br/>Requires:<a href="#backup">backup</a>, <a href="#lbl">lbl</a>, <a href="#clbl">clbl</a>, <a href="#dlog">dlog</a>, <a href="#log_it">log_it</a>, <a href="#princdebugstrs">princdebugstrs</a>, <a href="#prjndx">prjndx</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="mytime"></a><a href="mytime.lsp">mytime.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:
;;;	   Edited:
;;;
;;;******************************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:mytime, get-edit-day-lst, get-job-time<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#stacklist">stacklist</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="myucs"></a><a href="MYUCS.LSP">myucs.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  
;;;	   Edited:  

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:myucs<br/>Requires:<a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="myvlfuns"></a><a href="myvlfuns.lsp">myvlfuns.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:vlfuns<br/>Requires:<a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="navoffall"></a><a href="NAVOFFALL.LSP">navoffall.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:ctr, c:navoffall, c:navonall<br/>Requires:<a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="navvcubedisplay-off-reactor"></a><a href="navvcubedisplay-off-reactor.LSP">navvcubedisplay-off-reactor.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: endcommand, reactor-navvcube<br/>Requires:<a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="ncmap"></a><a href="NCmap.lsp">ncmap.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 2/8/2012
;;;		   EDITED: 2/8/2012
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:ncmap<br/>Requires:<a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="nentsel_to_mcs"></a><a href="nentsel_to_MCS.lsp">nentsel_to_mcs.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: nentsel_to_mcs<br/>Requires:<a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="newgroup"></a><a href="newgroup.lsp">newgroup.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 1/13/2010
;;;		   EDITED: 1/13/2010
;;;
;;;****************************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:newgroup<br/>Requires:<a href="#groups">groups</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="newmvpc"></a><a href="newmvpc.lsp">newmvpc.lsp</a>
    </td>
    <td>
    <PRE>
;;;This function is intended to automate the positioning of a detail enlargement in a "numbered" viewport.
;;;The commands are ZC3 through ZC6 (additional command numbers may be easily added below).
;;;
;;;Viewport numbers are specified in characters 3-6 of the viewport layer name, e.g. C-VI037NPLT (This is a modified CLG format)
;;;
;;;In the example viewport layer name:
;;;	1st character "C" specifies it is a Civil layer.
;;;	2nd character "-" specifies the layer linetype is "continuous".
;;;		(2nd character "-" is CLG but only if nothing is specified by it else it is non-CLG)
;;;	3rd through 6th character "VI03" specifies is a viewport number of 3.
;;;	7th character "7" specifies a layer color 7.
;;;		(7th character "-" is CLG but only if nothing is specified by it else it is non-CLG)
;;;	8th through 11th character "NPLT" specifies it is a Non-Plot layer.
;;;
;;;VPSET, an external subroutine, works using this layer format.
;;;UPOINT is an external subroutine.
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 11/17/2011
;;;		   EDITED: 11/17/2011
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:zc1, c:zc10, c:zc2, c:zc3, c:zc4, c:zc5, c:zc6, c:zc7, c:zc8, c:zc9, newmvpc<br/>Requires:<a href="#tsnap">tsnap</a>, <a href="#uint">uint</a>, <a href="#upoint">upoint</a>, <a href="#vpset">vpset</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="newxrswap"></a><a href="newxrswap.lsp">newxrswap.lsp</a>
    </td>
    <td>
    <PRE>
;;;Open selected XREF for editing. (In which case it is then the active drawing.) (uses Robert McNeel & Assoc.'s DOSLIB)
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	9-30-2009 Completely rewritten 
;;;
;;;;******************************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:xrswap, calc_zoom_pts, do_swap_stuff, isdbmod, rotate_scale_pts<br/>Requires:<a href="#tsnap">tsnap</a>, <a href="#uint">uint</a>, <a href="#upoint">upoint</a>, <a href="#vpset">vpset</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="newz"></a><a href="newz.lsp">newz.lsp</a>
    </td>
    <td>
    <PRE>
;;;NEWZ: Set "Z"; MATZ: match "Z"; SHOWZ Display "Z"; OFFZ Set "Z" +- reference "Z"
;;;
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:      1-26-96
;;;	Edited:		8-28-96
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:dotconts, c:matz, c:newz, c:offz, c:showz, c:ze<br/>Requires:<a href="#uint">uint</a>, <a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="next"></a><a href="next.lsp">next.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;****************************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:next, c:nextdwg, c:prev, c:xreturn, set_from_proj_desc<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#initandsdichk">initandsdichk</a>, <a href="#myopen_fun">myopen_fun</a>, <a href="#myopencmd">myopencmd</a>, <a href="#proj">proj</a>, <a href="#save_file_chk">save_file_chk</a>, <a href="#setprevdwg">setprevdwg</a>, <a href="#sopen">sopen</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="nilbns"></a><a href="nilbns.lsp">nilbns.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:nilbns<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#initandsdichk">initandsdichk</a>, <a href="#myopen_fun">myopen_fun</a>, <a href="#myopencmd">myopencmd</a>, <a href="#proj">proj</a>, <a href="#save_file_chk">save_file_chk</a>, <a href="#setprevdwg">setprevdwg</a>, <a href="#sopen">sopen</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="nilit"></a><a href="NILIT.LSP">nilit.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:nilit<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#initandsdichk">initandsdichk</a>, <a href="#myopen_fun">myopen_fun</a>, <a href="#myopencmd">myopencmd</a>, <a href="#proj">proj</a>, <a href="#save_file_chk">save_file_chk</a>, <a href="#setprevdwg">setprevdwg</a>, <a href="#sopen">sopen</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="nint"></a><a href="nint.lsp">nint.lsp</a>
    </td>
    <td>
    <PRE>
;;;Change the first number in a text string by the user specified value. The
;;;new number is conformed to the units of precision specified by the user.
;;;
;;;If specified units of precision are greater than the precision of the original
;;;number zeros are added to the string to display them.  Actual digits reflecting
;;;the precise number intended by the user cannot be determined by this routine.
;;;
;;;If precision is reduced by the user it cannot be regained by this routine.
;;;The prior digits of higher precision are discarded and cannot be recovered
;;;except by the method they were originally obtained or other equal method.
;;;
;;;If the symbol 'do_elevincr' evaluates to T (true), and
;;;If the symbol 'elevincr_lst' exists and is a list of numbers (INT or REAL)
;;;C:NINT will adjust the 'value to change number by' by subtracting the numbers
;;;in the list in order, one each pick.  E.g., if your initial values to change are
;;;all 000.00 such as standard elevations on pump station sections might be at first,
;;;they can be set to different values each calculated as a difference from the
;;;previous value.
;;;
;;;(uses UINT UKWORD UREAL USTR)
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	9-19-95
;;;	Edited:		1-30-2015
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:n-, c:n+, c:nint, c:nints, fix_str_prec, nint<br/>Requires:<a href="#uint">uint</a>, <a href="#ukword">ukword</a>, <a href="#ureal">ureal</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="nn"></a><a href="nn.lsp">nn.lsp</a>
    </td>
    <td>
    <PRE>
;;;Changes numbers by specified amount.  If text is in Station format, "+" is
;;;kept in the number which is still properly read and edited.  The new number
;;;is conformed to the current linear units precision setting (LUPREC).
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	9-02-94
;;;	Edited:		6-18-2014
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:nn<br/>Requires:<a href="#stait">stait</a>, <a href="#uint">uint</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="notby"></a><a href="notby.lsp">notby.lsp</a>
    </td>
    <td>
    <PRE>
;;;Select everything that is NOT layer and color BYBLOCK.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:notby<br/>Requires:<a href="#stait">stait</a>, <a href="#uint">uint</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="nsang"></a><a href="nsang.lsp">nsang.lsp</a>
    </td>
    <td>
    <PRE>
;;;Reformats bearing (DMS) text while optionally changing the angle
;;;and/or the direction.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;		All rights reserved
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:nsang<br/>Requires:<a href="#uint">uint</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="ntxtstr"></a><a href="ntxtstr.lsp">ntxtstr.lsp</a>
    </td>
    <td>
    <PRE>
;;;Subroutine for use with MLT and REMLT

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: ntxtstr<br/>Requires:<a href="#uint">uint</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="numhses"></a><a href="numhses.lsp">numhses.lsp</a>
    </td>
    <td>
    <PRE>
;;;Requires a block named HOUSE with attribute tag HOUSE#
;;;
;;;Required subroutines:	UINT.LSP
;;;				ATTUPD.LSP
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 
;;;		   EDITED: 
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:numhses<br/>Requires:<a href="#attupd">attupd</a>, <a href="#uint">uint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="objcolor"></a><a href="objcolor.lsp">objcolor.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 4/4/2012
;;;	   Edited: 4/42012
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:objcolor<br/>Requires:<a href="#truecolor">truecolor</a>, <a href="#uint">uint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="ohsnap"></a><a href="ohsnap.lsp">ohsnap.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:
;;;	   Edited:
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:ohsnap<br/>Requires:<a href="#truecolor">truecolor</a>, <a href="#uint">uint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="oldxrswap"></a><a href="oldxrswap.lsp">oldxrswap.lsp</a>
    </td>
    <td>
    <PRE>
;;;Open selected XREF for editing. (In which case it is then the active drawing.) (uses UKWORD)
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	3-6-2008 Completely rewritten 
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:xrswap, calc_zoom_pts, isdbmod, rotate_scale_pts<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#gvpno">gvpno</a>, <a href="#log_it">log_it</a>, <a href="#sopen">sopen</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="open"></a><a href="open.lsp">open.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;Prior to DEFUN below (COMMAND ".undefine" "open") is required or this DEFUN will not
;;;redefine QSAVE (COMMAND ".undefine" "open") can be executed from here or anywhere
;;;else as long as it is called before this DEFUN
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:open, myownopencmd<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#initandsdichk">initandsdichk</a>, <a href="#myopen_fun">myopen_fun</a>, <a href="#myopencmd">myopencmd</a>, <a href="#princdebugstrs">princdebugstrs</a>, <a href="#proj">proj</a>, <a href="#save_file_chk">save_file_chk</a>, <a href="#setprevdwg">setprevdwg</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="opendwg"></a><a href="opendwg.lsp">opendwg.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:opendwg<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#initandsdichk">initandsdichk</a>, <a href="#myopen_fun">myopen_fun</a>, <a href="#myopencmd">myopencmd</a>, <a href="#princdebugstrs">princdebugstrs</a>, <a href="#proj">proj</a>, <a href="#save_file_chk">save_file_chk</a>, <a href="#setprevdwg">setprevdwg</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="openpagesetups"></a><a href="openpagesetups.lsp">openpagesetups.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:donepagesetups, c:editpagesetups<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="openprof"></a><a href="openprof.lsp">openprof.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 
;;;		   EDITED: 
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:openplan, c:openprof<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="panpnt"></a><a href="panpnt.lsp">panpnt.lsp</a>
    </td>
    <td>
    <PRE>
;;;Made for use with voice commands. returns a pan displacement
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  6/2004
;;;	   Edited:  6/2004

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: panpnt<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="paramask"></a><a href="paramask.lsp">paramask.lsp</a>
    </td>
    <td>
    <PRE>
;;;Place "masking" objects under text, mtext and dimensions.
;;;Adjust margin spacing via dialog interface.
;;;
;;;Added exclusion of text with thickness = 1.0
;;;(to always exclude certain text from processing give it a thickness of 1.0)
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:      1-26-96
;;;	Edited:		12-28-12
;;;
;;;	removed creation of 3Dfaces - now makes HDBOX inserts only.
;;;	requires image 1x1.bmp and block HDBOX.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:demask, c:hdmatch, c:hdspace, c:hdupd, c:paramask, c:pmask, ddhtextsof, dodraworder, fun, fun, getsets, hddimmtext, hdtext_values, makepmasks, maskdims, paravpset, pmask, pmskgvpno, set_margin<br/>Requires:<a href="#\">\</a>, <a href="#browser_help">browser_help</a>, <a href="#mklayr">mklayr</a>, <a href="#pttxt">pttxt</a>, <a href="#uint">uint</a>, <a href="#ukword">ukword</a>, <a href="#ureal">ureal</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="parlbl"></a><a href="parlbl.LSP">parlbl.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:parlbl<br/>Requires:<a href="#mymldr">mymldr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="pbrk"></a><a href="pbrk.lsp">pbrk.lsp</a>
    </td>
    <td>
    <PRE>
;;;Place pipe break symbol automatically by selecting sides.
;;;(uses PBRK.DWG)
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	6-18-94
;;;	Edited:		6-6-99


    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:pbrk<br/>Requires:<a href="#mymldr">mymldr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="pbrkd"></a><a href="pbrkd.lsp">pbrkd.lsp</a>
    </td>
    <td>
    <PRE>
;;;Place double-line pipe break symbol automatically by selecting outside walls.
;;;(uses PBRK.DWG)
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	6-18-94
;;;	Edited:		6-6-99


    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:pbrkd<br/>Requires:<a href="#mymldr">mymldr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="pbs"></a><a href="pbs.lsp">pbs.lsp</a>
    </td>
    <td>
    <PRE>
;;;Draws a concrete duct bank (rectangle) to scale at the station and invert supplied.
;;;It is for profiles with a vertical scale 10x the horizontal scale.
;;;
;;;	AUTHOR: Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	8-18-95
;;;	Edited:		12-18-97
;;;
;;;requires ureal.lsp uint.lsp upoint.lsp

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:pbs<br/>Requires:<a href="#mklayr">mklayr</a>, <a href="#uint">uint</a>, <a href="#upoint">upoint</a>, <a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="peseal"></a><a href="peseal.lsp">peseal.lsp</a>
    </td>
    <td>
    <PRE>
;;; Xref attachment function for PE seal.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 1991-2001
;;;	Edited:	2-21-2007
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:peseal, c:sealcolor<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#mklayr">mklayr</a>, <a href="#uint">uint</a>, <a href="#ukword">ukword</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="pgl"></a><a href="pgl.lsp">pgl.lsp</a>
    </td>
    <td>
    <PRE>
;;;Place a standard Plan Grid array beginning at the point you specify
;;;       and terminating at the north and east
;;;       distances you specify.  The grid will be divided into 100', 500'
;;;       and 1000'grid lines on separate layers so that you can easily
;;;       change between display of these intervals without editing the grid.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	5-31-94
;;;	Edited:		6-15-99
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:1000grid, c:100grid, c:200grid, c:500grid, c:egrid, c:pgl<br/>Requires:<a href="#upoint">upoint</a>, <a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="phlay"></a><a href="phlay.lsp">phlay.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 6/2007
;;;		   EDITED: 6/2007
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:phlay<br/>Requires:<a href="#uint">uint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="pl2box"></a><a href="pl2box.lsp">pl2box.lsp</a>
    </td>
    <td>
    <PRE>
;;;Converts a (LW)Polyline through any 3 points into a closed 4 point polyline that describes a parallelogram
;;;with corners at the original 3 points (4th point is mathematically constructed).
;;;
;;;Purpose:	To "finish the box" described by 3 surveyed points on a 4 cornered object, e.g. equipment pads, etc.
;;;		Typically used to create an approximate square or rectangle from 3 survey points.  It will always
;;;		create a parallelogram.
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 4/15/2010
;;;		   EDITED: 4/15/2010
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:pl2box<br/>Requires:<a href="#uint">uint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="placeview-layer-reactor"></a><a href="placeview-layer-reactor.LSP">placeview-layer-reactor.lsp</a>
    </td>
    <td>
    <PRE>
;; by default turn the ability ON

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: acdb-objectappended, dlog-reactor, docbecamecurrent, dwgclosebegan, dwgsavebegan, dwgsavecomplete, enddwgopen, reactor-editor<br/>Requires:<a href="#autowhodunit">autowhodunit</a>, <a href="#dlog">dlog</a>, <a href="#errortrap">errortrap</a>, <a href="#make-layer-ent">make-layer-ent</a>, <a href="#make_layer_ent">make_layer_ent</a>, <a href="#setdefplot">setdefplot</a>, <a href="#uint">uint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="planvpfix"></a><a href="planvpfix.lsp">planvpfix.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;Shifts right-most edge of standard PPGEN generated ANSI-D plan viewport left by 0.275 units.
;;;Purpose is to provide clear space for "NOT FOR CONSTRUCTION" or other interim note without
;;;the necessity to invoke "Plot paperspace last" to avoid modelspace wipeouts obliterating the note.
;;;Execute this routine from a script applied to all plan and profile sheets for best time economy.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:planvpfix<br/>Requires:<a href="#autowhodunit">autowhodunit</a>, <a href="#dlog">dlog</a>, <a href="#errortrap">errortrap</a>, <a href="#make-layer-ent">make-layer-ent</a>, <a href="#make_layer_ent">make_layer_ent</a>, <a href="#setdefplot">setdefplot</a>, <a href="#uint">uint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="plbl"></a><a href="plbl.lsp">plbl.lsp</a>
    </td>
    <td>
    <PRE>
;;;Plot label utility.  Written By: Henry C. Francis	7/22/91
;;;
;;;	This routine will automatically place several informational
;;;	items as a string in an attribute called FILSPEC in a block
;;;	named pltstamp.  The attribute is positioned and rotated to
;;;	fit just inside the binding edge of any standard sheet size.
;;;	Currently all sheet sizes except 8.5" x 11" will be stamped
;;;	along the short side of the sheet in all cases.  The 8.5" x 11"
;;;	sheet will be stamped along the long side of the sheet.
;;;		
;;;               The items are, in order,
;;;	       Filespec:	(path\filename)	         (dwgprefix + dwgname + .DWG)
;;;	      Edited By:	user login name		 (reads from environment)
;;;		   Date:	mm/dd/yy	         (extracted from cdate)
;;;		   Time:	hh:mm		         (extracted from cdate)
;;;		  Scale:	nn"=1'-0" or 1"=nn'	 (calculated from dimscale)
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:plbl, pdate, setsclfac<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#dimscl">dimscl</a>, <a href="#mklayr">mklayr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="plcolor"></a><a href="plcolor.lsp">plcolor.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:plcolor, c:replcolor<br/>Requires:<a href="#uint">uint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="pldir"></a><a href="pldir.lsp">pldir.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 
;;;		   EDITED: 
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:pldir<br/>Requires:<a href="#uint">uint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="plgrid"></a><a href="plgrid.lsp">plgrid.lsp</a>
    </td>
    <td>
    <PRE>
;;;Place a standard Plan Grid array beginning at the point you specify
;;;       and terminating at the north and east
;;;       distances you specify. The grid will be divided into 100', 500'
;;;       and 1000'grid lines on separate layers so that you can easily
;;;       change between display of these intervals without editing the grid.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;	Copyright:	5-28-96
;;;	Edited:		4-22-2004
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:plgrid<br/>Requires:<a href="#mklayr">mklayr</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="pln"></a><a href="pln.lsp">pln.lsp</a>
    </td>
    <td>
    <PRE>
;Place a Plan North Symbol in the drawing at any orientation. (uses UPOINT)
;Also uses NA1.DWG (static horizontal part) and NA2.DWG (pointer, set to 
;any rotation)
;
;	AUTHOR: HENRY C. FRANCIS
;		425 N. ASHE ST.
;		SOUTHERN PINES, NC 28387
;		All rights reserved without prejudice.
;
;	Copyright:	5-27-94
;	Edited:		6-18-94
;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:pln<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#gvpno">gvpno</a>, <a href="#mklayr">mklayr</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="ploc"></a><a href="ploc.lsp">ploc.lsp</a>
    </td>
    <td>
    <PRE>
;Open/Close a selection set of polyline entities.
;	The only input
;       required is the selection of the polylines to modify.  There
;       is no need to worry about not selecting non-polyline entities
;       because they will be automatically filtered out of the
;       selection set.
;
;	AUTHOR: HENRY C. FRANCIS
;		425 N. ASHE ST.
;		SOUTHERN PINES, NC 28387
;              
;		All rights reserved without prejudice.
;	Copyright:	5-17-94
;	Edited:		6-7-94
;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:ploc<br/>Requires:<a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="plot2f"></a><a href="plot2f.LSP">plot2f.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:plot2f()<br/>Requires:<a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="plotbars"></a><a href="plotbars.lsp">plotbars.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:make_bars_xml, c:make_html, c:make_lisp_xml, c:plotbars<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#myopen_fun">myopen_fun</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="plotfull"></a><a href="plotfull.LSP">plotfull.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:plotfull()<br/>Requires:<a href="#autodpifix">autodpifix</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="plothalf"></a><a href="plothalf.LSP">plothalf.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:plothalf()<br/>Requires:<a href="#autodpifix">autodpifix</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="plrev"></a><a href="plrev.lsp">plrev.lsp</a>
    </td>
    <td>
    <PRE>
;;;This routine will reverse the order of vertices in any polyline.  It
;;;creates a new polyline at the end of the existing one that has just two
;;;vertices occupying the same point as the existing end.  It then uses
;;;PEDIT JOIN to accomplish the reversal.  If your polylines must not have
;;;more than one vertex occupying the origin point of the newly ordered
;;;polyline then don't use this routine or PEDIT the result to remove the
;;;extra vertices created by this routine.
;;;
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	12-3-95
;;;	Edited:		8-28-2013
;;;
;;;	Incorporated AutoCAD's Reverse option in its curent PEDIT command
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:plrev<br/>Requires:<a href="#autodpifix">autodpifix</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="plthk"></a><a href="plthk.lsp">plthk.lsp</a>
    </td>
    <td>
    <PRE>
;Modifies thickness of a selection set of entities.
;	The only input
;       required is the selection of the entities to modify.
;
;	AUTHOR: HENRY C. FRANCIS
;		425 N. ASHE ST.
;		SOUTHERN PINES, NC 28387
;              
;		All rights reserved without prejudice.
;
;	Copyright:	8-4-97
;	Edited:		8-4-97
;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:plthk<br/>Requires:<a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="pltl"></a><a href="PLTL.lsp">pltl.lsp</a>
    </td>
    <td>
    <PRE>
;;;Place title text, underline and scale text.
;;;       Uses DIMSCALE and LUNITS to format scale string and scale bubble
;;;       and text.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	9-30-93
;;;	Edited:		6-17-2003
;;;
;;;       Requirements:   GETSTYLE.LSP (gets current style values and changes
;;;                                     them as req'd for this function only.)
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:pltl<br/>Requires:<a href="#mklayr">mklayr</a>, <a href="#dimscl">dimscl</a>, <a href="#getstyle">getstyle</a>, <a href="#gvpno">gvpno</a>, <a href="#ukword">ukword</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="pltsiz"></a><a href="pltsiz.lsp">pltsiz.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: pltsiz<br/>Requires:<a href="#mklayr">mklayr</a>, <a href="#dimscl">dimscl</a>, <a href="#getstyle">getstyle</a>, <a href="#gvpno">gvpno</a>, <a href="#ukword">ukword</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="plwid"></a><a href="plwid.lsp">plwid.lsp</a>
    </td>
    <td>
    <PRE>
;;;Modifies width of a selection set of polyline entities.
;;;	The only input
;;;       required is the selection of the polylines to modify.  There
;;;       is no need to worry about not selecting non-polyline entities
;;;       because they will be automatically filtered out of the
;;;       selection set.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;	Copyright:	5-17-94
;;;	Edited:		6-7-94
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:plwid<br/>Requires:<a href="#ukword">ukword</a>, <a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="plwids"></a><a href="plwids.lsp">plwids.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:plwids<br/>Requires:<a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="plxl"></a><a href="plxl.lsp">plxl.lsp</a>
    </td>
    <td>
    <PRE>
;;;Translate plines w/ arcs to plines w/ mult. straight segments for use
;;;with DTM TIN's for contouring.  Rounds out pline arcs via a suitable no.
;;;of straight segments.  The determiner is based on small angle deflection.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	5-10-96
;;;	Edited:		10-16-2006
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:plxl<br/>Requires:<a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="pntel"></a><a href="pntel.lsp">pntel.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  5-17-2004
;;;	   Edited:  5-17-2004

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:pntel<br/>Requires:<a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="pointangle"></a><a href="pointangle.lsp">pointangle.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:pntang, c:pointangle, c:ptang<br/>Requires:<a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="poptl"></a><a href="POPTL.LSP">poptl.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	All rights reserved.
;;;
;;;	Copyright:  10-23-2002
;;;	   Edited:  10-3-2002
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:bthtl, c:cdmlsttl, c:cdmtl, c:civtl, c:cmptl, c:dlvtl, c:drwtl, c:enttl, c:fittl, c:gattl, c:laytl, c:mectl, c:msctl, c:pmptl, c:poptl, c:slvtl, c:stdtl, c:swrtl, c:tretl, c:txttl, c:wtrtl<br/>Requires:<a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="ppdisp"></a><a href="ppdisp.lsp">ppdisp.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	All rights reserved.
;;;
;;;	Copyright:  
;;;	   Edited:  

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:ppdisp<br/>Requires:<a href="#uint">uint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="ppgrid-arch-d"></a><a href="ppgrid-arch-d.lsp">ppgrid-arch-d.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  5-21-2004
;;;	   Edited:  2-13-2007

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:ppgrid-arch-d, ppgrid-arch-d_error<br/>Requires:<a href="#mklayr">mklayr</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="ppgrid"></a><a href="ppgrid.lsp">ppgrid.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  5-21-2004
;;;	   Edited:  5-7-2014

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:ppgrid, ppgrid_error<br/>Requires:<a href="#mklayr">mklayr</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="ppgrida"></a><a href="ppgrida.lsp">ppgrida.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  5-21-2004
;;;	   Edited:  2-13-2007

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:ppgrida, ppgrida_error<br/>Requires:<a href="#mklayr">mklayr</a>, <a href="#uint">uint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="pppset"></a><a href="pppset.lsp">pppset.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	All rights reserved.
;;;
;;;	Copyright:  
;;;	   Edited:

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:pppset<br/>Requires:<a href="#uint">uint</a>, <a href="#ukword">ukword</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="princdebugstrs"></a><a href="princdebugstrs.lsp">princdebugstrs.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:	6/21/2006
;;;	   Edited:	12/8/2016

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: princdebugstrs<br/>Requires:<a href="#uint">uint</a>, <a href="#ukword">ukword</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="prjmgmt"></a><a href="prjmgmt.lsp">prjmgmt.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 1997-1999
;;;	   Edited: 3-19-99
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:prjmgmt<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#set_drive_letters">set_drive_letters</a>, <a href="#ukword">ukword</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="prjndx"></a><a href="prjndx.LSP">prjndx.lsp</a>
    </td>
    <td>
    <PRE>
;;;Lisp function: (prjndx)
;;;     and other supporting lisp subroutines are included in this file.
;;;
;;;     (prjndx) Creates/Updates PRJNDX.TXT - a sorted index of project
;;;     drawing names, sheet nos., titles, and area info for viewports.
;;;     This information is used by the commands below.
;;;
;;;Requirements:
;;;     Block named *TTBAT.  It can be
;;;     customized but it must contain all attributes in the original
;;;     CORPTTBAT and be named as indicated.  Unneeded attributes can be
;;;     left blank or "parked" outside the sheet area.  Attributes are
;;;     for Title block fill-in. Only drawings containing one of these
;;;     blocks are considered to be sheets in the project document set.
;;;
;;;Commands: Shtndx, Shtbnd, Viewsht, Esbnd, Bproj
;;;
;;;Use SHTNDX to create a complete drawing index from PRJNDX.TXT.
;;;Use SHTBND to create sheet number labels and rectangles outlining all
;;;    viewport areas for all sheets.
;;;Use VIEWSHT to zoom to any viewport area of any sheet.  Examine
;;;    coordinate values to help select plan, profile or detail views.
;;;Use ESBND to erase all labels and rectangles created by SHTBND.
;;;Use BPROJ to automatically compile the ordered list of project sheets
;;;    for plotting and start BPLOT ready to plot them all.
;;;
;;;PRJNDX.TXT Notes:
;;;
;;;       Use EDTXT to open PRJNDX.TXT in Notepad.  Open PRJNDX.TXT to
;;;       view drawing names and their associated sheet numbers (a very
;;;       handy reference).
;;;
;;;       PRJNDX should be manually sorted after new sheets are added.
;;;       Once the list is complete and has been sorted it will not need
;;;       sorting again.
;;;
;;;       Do not use word wrap! Sheet info must occupy only one line in
;;;       the file.
;;;
;;;       Sheets that belong to the project but are kept elsewhere can
;;;       be manually added (vport info may be omitted) so SHTNDX will
;;;       produce the complete sheet index.
;;;
;;;       Add BOGUS drawing names and titles to provide section headings
;;;       such as CIVIL, MECHANICAL, STRUCTURAL, ELECTRICAL, etc.
;;;
;;;       Corrected vpbnd subroutine to translate viewport bounds from UCS
;;;       to WCS
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;       Copyright:      4-22-97
;;;       Edited:         4-22-2007
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:prjndx, prjndx, vpbnds<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#shtbnd">shtbnd</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="procp"></a><a href="PROCP.LSP">procp.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:
;;;	   Edited:
;;;****************************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:procp, c:procps, procp_error<br/>Requires:<a href="#mlt">mlt</a>, <a href="#getstyle">getstyle</a>, <a href="#lamacs">lamacs</a>, <a href="#mymldr">mymldr</a>, <a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="profxing"></a><a href="profxing.lsp">profxing.lsp</a>
    </td>
    <td>
    <PRE>
;;;Layout vertically exaggerated circles (ellipses) for double reverse curve in profile for pipeline
;;;crossings to be accomplished using deflections instead of bends.
;;;User specifies non-exaggerated radii for circles and ellipses are drawn to match the user specified
;;;vertical exaggeration for the circles.  Radius of each ellipse can be dynamically increased or decreased
;;;prior to accepting the ellipse placement.
;;;
;;;The layout is of the pipe invert where the user specifies the pipe size and
;;;the required clearance between the selected point on the crossing object and
;;;the top of the pipe.
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;		COPYRIGHT: 4-27-2009
;;;		   EDITED: 12-18-2015
;;;
;;;****************************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:profxing, calc-left-elev, calc-mid-elev, calc-right-elev, calcalignpnts, fixthisellcolor<br/>Requires:<a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="proj"></a><a href="proj.lsp">proj.lsp</a>
    </td>
    <td>
    <PRE>
;;;Dialog - Create, Select or Delete Project listings (delete has no effect on files
;;;or folders, it just removes from list of available projects).
;;;Sort projects by Client #, Project #, Client Name, or Project description.
;;;Explorer window and Open dialog start in the project folder.  No need to browse and
;;;find the correct folder.
;;;
;;;Change values set in (set_drive_letters) to customize for your needs
;;;
;;;	AUTHOR: Henry C. Francis
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, N.C. 28387
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	1999-2010
;;;	Edited:		8-20-2010
;;;
;;;********************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:fast, c:last, c:proj, delete_name, do_dir_stuff, do_writelast, exp_list	(), explore_proj, fresh_list, fun, get_proj_seed, openlastdwg, preview_proj, proj_action, save_proj, sel_proj	(sv_optn, set_client_list, set_proj_desc, set_proj_list, sort_prj	(/), subf_dialog<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#acaddoclist">acaddoclist</a>, <a href="#browser_help">browser_help</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#dlog">dlog</a>, <a href="#initandsdichk">initandsdichk</a>, <a href="#log_it">log_it</a>, <a href="#myopen_fun">myopen_fun</a>, <a href="#myopencmd">myopencmd</a>, <a href="#save_file_chk">save_file_chk</a>, <a href="#set_drive_letters">set_drive_letters</a>, <a href="#setprevdwg">setprevdwg</a>, <a href="#sopen">sopen</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="proj_notes"></a><a href="proj_notes.LSP">proj_notes.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:proj_notes()<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#acaddoclist">acaddoclist</a>, <a href="#browser_help">browser_help</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#dlog">dlog</a>, <a href="#initandsdichk">initandsdichk</a>, <a href="#log_it">log_it</a>, <a href="#myopen_fun">myopen_fun</a>, <a href="#myopencmd">myopencmd</a>, <a href="#save_file_chk">save_file_chk</a>, <a href="#set_drive_letters">set_drive_letters</a>, <a href="#setprevdwg">setprevdwg</a>, <a href="#sopen">sopen</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="propno"></a><a href="propno.lsp">propno.lsp</a>
    </td>
    <td>
    <PRE>
;;;Place property number block (triangle with number as attribute)
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	All rights reserved.
;;;
;;;	Copyright:  6/19/2001
;;;	   Edited:  6/19/2001

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:propno	()<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#gvpno">gvpno</a>, <a href="#mklayr">mklayr</a>, <a href="#uint">uint</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="prov"></a><a href="prov.lsp">prov.lsp</a>
    </td>
    <td>
    <PRE>
;;;Prints a proverb to the output (text) screen and command line.
;;;Requires proverbs.dat
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:prov<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#gvpno">gvpno</a>, <a href="#mklayr">mklayr</a>, <a href="#uint">uint</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="psct"></a><a href="psct.lsp">psct.lsp</a>
    </td>
    <td>
    <PRE>
;;;Place a pipe section symbol (yin-yan, sans the dots) in an arc or circle.
;;;(uses YINYAN.DWG)
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	6-18-94
;;;	Edited:		1-14-2008
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:psct, psct_error<br/>Requires:<a href="#make_layer_ent">make_layer_ent</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="psets"></a><a href="psets.lsp">psets.lsp</a>
    </td>
    <td>
    <PRE>
;;;Sets ParaPIPE parameters to match previously drawn ParaPIPE entities
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	All rights reserved.
;;;
;;;	Copyright:  4/2003
;;;	   Edited:  6/2003

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:psets<br/>Requires:<a href="#uint">uint</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="pspace"></a><a href="pspace.lsp">pspace.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;If tilemode must be 0 then why don't we just set it?

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: funfun<br/>Requires:<a href="#uint">uint</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="psty2ctb"></a><a href="psty2ctb.lsp">psty2ctb.lsp</a>
    </td>
    <td>
    <PRE>
;;;Force PSTYLEMODE=1 (Drawing uses color tables for plotting).

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:psty2ctb<br/>Requires:<a href="#uint">uint</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="ptank"></a><a href="PTANK.LSP">ptank.lsp</a>
    </td>
    <td>
    <PRE>
;;;Draws a pressure tank from centers or ends.
;;;Requires: Ukword.lsp, Upoint.lsp, Ureal.lsp
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:ptank<br/>Requires:<a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="ptprogress"></a><a href="ptprogress.lsp">ptprogress.lsp</a>
    </td>
    <td>
    <PRE>
;;;****************************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:ptprogress, c:ptselect<br/>Requires:<a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="pttxt"></a><a href="PTTXT.LSP">pttxt.lsp</a>
    </td>
    <td>
    <PRE>
;(subroutine) Place text at points.

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:delpttxt, pttxt<br/>Requires:<a href="#tsnap">tsnap</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="pubcolor"></a><a href="pubcolor.LSP">pubcolor.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:pubcolor()<br/>Requires:<a href="#tsnap">tsnap</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="publish-reactor"></a><a href="publish-reactor.LSP">publish-reactor.lsp</a>
    </td>
    <td>
    <PRE>
;define function reactor for publish command start and end

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: end-cmd, fc:cmd-publish, start-cmd<br/>Requires:<a href="#setdef">setdef</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="pucs"></a><a href="pucs.lsp">pucs.lsp</a>
    </td>
    <td>
    <PRE>
;Set a UCS to match a profile grid (Y is exagerated 10X).
;
;	AUTHOR: HENRY C. FRANCIS
;		425 N. ASHE ST.
;		SOUTHERN PINES, NC 28387
;		All rights reserved without prejudice.
;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:pucs<br/>Requires:<a href="#upoint">upoint</a>, <a href="#ureal">ureal</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="purgeall"></a><a href="purgeall.lsp">purgeall.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  
;;;	   Edited:  

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:purgeall<br/>Requires:<a href="#upoint">upoint</a>, <a href="#ureal">ureal</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="purgeldd"></a><a href="purgeldd.lsp">purgeldd.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 
;;;		   EDITED: 
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:purgeldd<br/>Requires:<a href="#upoint">upoint</a>, <a href="#ureal">ureal</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="qlay"></a><a href="qlay.lsp">qlay.lsp</a>
    </td>
    <td>
    <PRE>
;;;Quick "set to existing layer" dialog.
;;;
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	4-28-96
;;;	Edited:		9-11-97
;;;
;;;requires QLAY.DCL

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:qlay, lay_list, set_clayr, w_list<br/>Requires:<a href="#upoint">upoint</a>, <a href="#ureal">ureal</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="qsave"></a><a href="qsave.lsp">qsave.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;At some point prior to the DEFUN/DEFUN-Q below the statement (COMMAND ".undefine" "qsave")
;;;is required or this DEFUN/DEFUN-Q will not redefine the internal QSAVE command.
;;;The statement (COMMAND ".undefine" "qsave") can be executed from here or anywhere
;;;else as long as it is called before this DEFUN/DEFUN-Q.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:qsave, fun, fun<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#backup">backup</a>, <a href="#corpndx">corpndx</a>, <a href="#dlog">dlog</a>, <a href="#groups">groups</a>, <a href="#lbl">lbl</a>, <a href="#log_it">log_it</a>, <a href="#lvndx">lvndx</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="quit"></a><a href="quit.lsp">quit.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;Logs the quit.
;;;
;;;Prior to DEFUN below (COMMAND ".undefine" "quit") is required or this DEFUN will not
;;;redefuine QSAVE (COMMAND ".undefine" "quit") can be executed from here or anywhere
;;;else as long as it is called before this DEFUN
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:quit<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#dlog">dlog</a>, <a href="#myopen_fun">myopen_fun</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="rasterptsize"></a><a href="rasterptsize.lsp">rasterptsize.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 7/1/2011
;;;		   EDITED: 7/1/2011
;;;
;;;The bulk and foundation of this code is from Jeff M. of Autodesk Forums (also a swamper, http://www.theswamp.org/)
;;;Thank you Jeff!
;;;
;;;Modify "drawing scale" point style sizes for raster display and output

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:normalalignlabelsize, c:normalcontourlabelsize, c:ptdownsize, c:ptscaledownsize, c:ptscaleupsize, c:ptupsize, c:rasteralignlabelsize, c:rastercontourlabelsize, c:setptsize, changealignlabelsize, changecontourlabelsize, changeptsize, fun, fun<br/>Requires:<a href="#c3difodoc">c3difodoc</a>, <a href="#truecolor">truecolor</a>, <a href="#ukword">ukword</a>, <a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="rattr"></a><a href="rattr.lsp">rattr.lsp</a>
    </td>
    <td>
    <PRE>
;;;Search and Replace ATTRIBUTE values; copyright 1997, H.C. Francis
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;
;;;		All rights reserved without prejudice.
;;;	Copyright:	8-8-97
;;;	Edited:		2-5-01
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:rattr, rattr, rattr_core<br/>Requires:<a href="#ukword">ukword</a>, <a href="#ustr">ustr</a>, <a href="#uutils">uutils</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="rblk"></a><a href="rblk.lsp">rblk.lsp</a>
    </td>
    <td>
    <PRE>
;;;Update or Replace an existing block. (uses USTR UKWORD)
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  1991 - 2011
;;;	   Edited:  2-28-2008
;;;
;;;Fixed to retain attribute values for identical tags in replacement block.
;;;
;;;Requires subroutines: UKWORD.LSP, USTR.LSP, MKLAYR.LSP
;;;which are available free here: http://paracadd.com/lisp/lisp_lst.htm
;;;or by direct download: http://paracadd.com/lisp/[filename.ext]
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:rblk, rblk<br/>Requires:<a href="#mklayr">mklayr</a>, <a href="#uint">uint</a>, <a href="#ukword">ukword</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="rbrkl"></a><a href="RBRKL.LSP">rbrkl.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  2-18-2004
;;;	   Edited:  2-18-2004

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:rbrkl<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#gvpno">gvpno</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="rbub"></a><a href="rbub.lsp">rbub.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:fixhouses, c:fixrr, c:flo, c:flo1, c:flo2, c:rbub<br/>Requires:<a href="#rrtxt">rrtxt</a>, <a href="#tolayer">tolayer</a>, <a href="#txtj">txtj</a>, <a href="#dimscl">dimscl</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="rdname"></a><a href="RDNAME.LSP">rdname.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 7/1/2011
;;;		   EDITED: 7/1/2011
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:rdname<br/>Requires:<a href="#mklayr">mklayr</a>, <a href="#dimscl">dimscl</a>, <a href="#gvpno">gvpno</a>, <a href="#txtsize">txtsize</a>, <a href="#uangle">uangle</a>, <a href="#upoint">upoint</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="reacs"></a><a href="reacs.lsp">reacs.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:reacs, listallreactions(), listallreactors(<br/>Requires:<a href="#mklayr">mklayr</a>, <a href="#dimscl">dimscl</a>, <a href="#gvpno">gvpno</a>, <a href="#txtsize">txtsize</a>, <a href="#uangle">uangle</a>, <a href="#upoint">upoint</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="reactstate"></a><a href="reactstate.LSP">reactstate.lsp</a>
    </td>
    <td>
    <PRE>
;;;Eric Schneider, 8/18/00
;;;tests for constructed "reactor"
;;;syntax: (REAC:STATE 'reactor mode)
;;;arguments: reactor - quoted typical reactor construction syntax, mode - integer 0-7
;;;usage: (REAC:STATE '(VLR-Command-Reactor nil '((:VLR-commandWillStart . TEST))) 1)
;;;"mode" 0 constructs "reactor" once even if already constructed
;;;"mode" 1 constructs "reactor" once if "reactor" has not already been constructed
;;;"mode" 2 removes first constructed "reactor" with matching "event" and "call", then constructs once
;;;"mode" 3 removes *all* constructed "reactor"s with matching "event" and "call", then constructs once
;;;"mode" 4 removes first constructed "reactor" with matching "event" and "call"
;;;"mode" 5 removes *all* constructed "reactor"s with matching "event" and "call"
;;;"mode" 6 removes *all* constructed "reactor"s with matching "event" regardless of "call"
;;;"mode" 7 removes *all* constructed "reactor"s regardless of "call" or "event"
;;;returns last VLR object acted upon, else nil

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: reac:state, rev-callback<br/>Requires:<a href="#mklayr">mklayr</a>, <a href="#dimscl">dimscl</a>, <a href="#gvpno">gvpno</a>, <a href="#txtsize">txtsize</a>, <a href="#uangle">uangle</a>, <a href="#upoint">upoint</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="reattr"></a><a href="reattr.lsp">reattr.lsp</a>
    </td>
    <td>
    <PRE>
;;;Reformat and reposition/reinsert multiline text notes (not MTEXT).
;;;Copies text and attributes from Xrefs to format new notes.
;;;
;;;          AUTHOR: HENRY C. FRANCIS
;;;                  425 N. Ashe Street
;;;                  Southern Pines, NC 28387
;;;              
;;;          All rights reserved without prejudice.
;;;
;;;       Copyright:     1999
;;;       Edited:        11-24-2006
;;;
;;;When Text size is specified, it is in Leroy template sizes.  Leroy template
;;;sizes are in 1000ths. Leroy 100 template is 100/1000ths or 0.10" high at a
;;;dimscale of 1.  It is 3.00" high at a dimscale of 30.
;;;
;;;The following are required:
;;;GETSTYLE.LSP, MKLAYR.LSP, UUTILS.LSP, TXTSIZE.LSP
;;;
;;;
;;;****************************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:reattr, reattr_error<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#getstyle">getstyle</a>, <a href="#gvpno">gvpno</a>, <a href="#mklayr">mklayr</a>, <a href="#txtsize">txtsize</a>, <a href="#uangle">uangle</a>, <a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#uutils">uutils</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="reattrall"></a><a href="REATTRALL.LSP">reattrall.lsp</a>
    </td>
    <td>
    <PRE>
;;;Reformat and reposition/reinsert multiline text notes (not MTEXT).
;;;Copies text and attributes from Xrefs to format new notes.
;;;
;;;          AUTHOR: HENRY C. FRANCIS
;;;                  425 N. Ashe Street
;;;                  Southern Pines, NC 28387
;;;              
;;;          All rights reserved without prejudice.
;;;
;;;       Copyright:     1999
;;;       Edited:        11-24-2006
;;;
;;;When Text size is specified, it is in Leroy template sizes.  Leroy template
;;;sizes are in 1000ths. Leroy 100 template is 100/1000ths or 0.10" high at a
;;;dimscale of 1.  It is 3.00" high at a dimscale of 30.
;;;
;;;The following are required:
;;;GETSTYLE.LSP, MKLAYR.LSP, UUTILS.LSP, TXTSIZE.LSP
;;;
;;;
;;;****************************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:rat, c:reattrall, reattr_error<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#getstyle">getstyle</a>, <a href="#gvpno">gvpno</a>, <a href="#mklayr">mklayr</a>, <a href="#txtsize">txtsize</a>, <a href="#uutils">uutils</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="rebar"></a><a href="REBAR.lsp">rebar.lsp</a>
    </td>
    <td>
    <PRE>
;;;REBAR - Draws rebar at specified spacing in already drawn slabs and walls
;;;
;;;RCORNER - Draws rebar at intersecting corners
;;;
;;;RHOOK - Draws individual rebar hooks
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://paracadd.com
;;;	All rights reserved.
;;;
;;;****************************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:rcorner, c:rebar, c:rebarpl, c:rhook, make_rebar_group, rebar_error<br/>Requires:<a href="#mklayr">mklayr</a>, <a href="#pttxt">pttxt</a>, <a href="#uangle">uangle</a>, <a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="recentdwg"></a><a href="recentdwg.lsp">recentdwg.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:recentdwg, recentdwg-error<br/>Requires:<a href="#mklayr">mklayr</a>, <a href="#pttxt">pttxt</a>, <a href="#uangle">uangle</a>, <a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="recloud"></a><a href="recloud.lsp">recloud.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:recloud<br/>Requires:<a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="refreshfiles"></a><a href="refreshfiles.lsp">refreshfiles.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:refreshfiles<br/>Requires:<a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="regsetacad"></a><a href="regsetacad.lsp">regsetacad.lsp</a>
    </td>
    <td>
    <PRE>
;;;Note: This routine is specifically written for AutoCAD 2004 registry keys.
;;;Adds 'pathlist' (a list of paths) to the "AutoCAD Support File Search Path" of all current user profiles
;;;Paths that already exist in the "AutoCAD Support File Search Path" are ignored.
;;;Paths that do not exist on the user workstation will not be added.
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 2-16-2008
;;;		   EDITED: 2-16-2008
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: regsetacad<br/>Requires:<a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="rehd"></a><a href="rehd.lsp">rehd.lsp</a>
    </td>
    <td>
    <PRE>
;;;Replaces old hd??? block definitions with new ones.
;;;Requires new hd??? drawings.
;;;2005

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:rehd<br/>Requires:<a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="relay"></a><a href="relay.lsp">relay.lsp</a>
    </td>
    <td>
    <PRE>
;;;Change all entities on a layer to another layer (or a new layer).
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;             
;;; 		All rights reserved without prejudice.
;;;
;;;	Copyright:	2-6-96
;;;	Edited:		4-9-2008
;;;


    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:relay<br/>Requires:<a href="#mklayr">mklayr</a>, <a href="#ukword">ukword</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="remdescrsp"></a><a href="remdescrsp.lsp">remdescrsp.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: June 10, 2011
;;;		   EDITED: June 10, 2011
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:remdescrsp, remdescrsp_error<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#collist">collist</a>, <a href="#stacklist">stacklist</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="remlt"></a><a href="remlt.lsp">remlt.lsp</a>
    </td>
    <td>
    <PRE>
;;;Places leader, line(s) of text and a vertical line w/ multiple lines of text.
;;;    The leader may include a single line segment or multiple line segments
;;;    at any angle.  A vertical line will be placed at the end of the last
;;;    leader line if there is more than one line of text.  After the vertical
;;;    line is placed the notes and line are repositioned so that the vertical
;;;    line is centered on the end of the last leader line.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	1996 - 2006
;;;	Edited:		9-2-2006
;;;
;;;****************************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:reinitremlt, c:remlt, c:teeless, c:tees, c:tognew, cons_text_str, create-mleader, create-text-leader, remlt_error, set-remlt-options, set-remlt-prod<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#archldrs">archldrs</a>, <a href="#calctxt">calctxt</a>, <a href="#dimscl">dimscl</a>, <a href="#errortrap">errortrap</a>, <a href="#getfield">getfield</a>, <a href="#getstyle">getstyle</a>, <a href="#gvpno">gvpno</a>, <a href="#harchldrs">harchldrs</a>, <a href="#mklayr">mklayr</a>, <a href="#mymldr">mymldr</a>, <a href="#ntxtstr">ntxtstr</a>, <a href="#set_mjrg">set_mjrg</a>, <a href="#txtsize">txtsize</a>, <a href="#uangle">uangle</a>, <a href="#udist">udist</a>, <a href="#uint">uint</a>, <a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#ureal">ureal</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="remove-reactors"></a><a href="remove-reactors.lsp">remove-reactors.lsp</a>
    </td>
    <td>
    <PRE>
;;;Columbia: 
;;;I don't really know why the reactor is remaining persistent in a SDI=1 mode, but the following tips might help with some of the problems.
;;;
;;;First...how to distinguish which reactor is yours in a reactor command stack.
;;;In each reactor creation method there is an argument that is normally left 'nil' by a lot of coders, because they don't know what to do with it.  Well here's a nifty idea.  The first argument in the (vlr-editor-reactor) function is a data argument.  In the Acad help files it says to use this argument to attach any LISP code to the argument.  This also means you can attach a string to the reactor object.  You can then READ that string using the (vlr-data) functions passing it an vlr-object.  Do you follow what I'm saying?  Here's an example:
;;;
;;;--- Code: ---

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: remove-reactors<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#archldrs">archldrs</a>, <a href="#calctxt">calctxt</a>, <a href="#dimscl">dimscl</a>, <a href="#errortrap">errortrap</a>, <a href="#getfield">getfield</a>, <a href="#getstyle">getstyle</a>, <a href="#gvpno">gvpno</a>, <a href="#harchldrs">harchldrs</a>, <a href="#mklayr">mklayr</a>, <a href="#mymldr">mymldr</a>, <a href="#ntxtstr">ntxtstr</a>, <a href="#set_mjrg">set_mjrg</a>, <a href="#txtsize">txtsize</a>, <a href="#uangle">uangle</a>, <a href="#udist">udist</a>, <a href="#uint">uint</a>, <a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#ureal">ureal</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="renamebaks"></a><a href="renamebaks.lsp">renamebaks.lsp</a>
    </td>
    <td>
    <PRE>
;;;Special function to rename *(#).bak files created by prior versions of BACKUP.LSP
;;;Renames *(#).bak files to *(#).dwg unless the *(#).dwg file already exists.
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 9/25/2010
;;;		   EDITED: 9/25/2010
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:renamebaks<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#archldrs">archldrs</a>, <a href="#calctxt">calctxt</a>, <a href="#dimscl">dimscl</a>, <a href="#errortrap">errortrap</a>, <a href="#getfield">getfield</a>, <a href="#getstyle">getstyle</a>, <a href="#gvpno">gvpno</a>, <a href="#harchldrs">harchldrs</a>, <a href="#mklayr">mklayr</a>, <a href="#mymldr">mymldr</a>, <a href="#ntxtstr">ntxtstr</a>, <a href="#set_mjrg">set_mjrg</a>, <a href="#txtsize">txtsize</a>, <a href="#uangle">uangle</a>, <a href="#udist">udist</a>, <a href="#uint">uint</a>, <a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#ureal">ureal</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="renameorthos"></a><a href="renameorthos.LSP">renameorthos.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:renameorthos<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="renote"></a><a href="renote.lsp">renote.lsp</a>
    </td>
    <td>
    <PRE>
;;;;Reformat and relocate/reinsert multiline text notes (pre-MTEXT). 
;;;;
;;;;          AUTHOR: HENRY C. FRANCIS
;;;;                  425 N. Ashe Street
;;;;                  Southern Pines, NC 28387
;;;;              
;;;;          All rights reserved without prejudice.
;;;;
;;;;       Copyright:      1997
;;;;       Edited:         11-24-2006
;;;;
;;;;     Requirements:
;;;;       Dimscale must be set to drawing scale, e.g., if drawing scale is
;;;;       1/4" = 1'-0" set dimscale to 48, if dimscale is 1" = 30' set
;;;;       dimscale to 30.  (Note: dimscale=0 is equivalent to dimscale=1
;;;;       within this function).  Dimscale is a multiplier in this function.
;;;;       A Leroy 100 template is 0.10" high with no scale multiplier or a
;;;;       dimscale of 1.  It is 3.00" high with a scale multiplier of 30 on a
;;;;       1" = 30' full scale drawing.  If your drawing is not drawn full
;;;;       scale then adjust dimscale to match.
;;;;
;;;;       The following function's path must be in your SET ACAD= statement:
;;;;       GETSTYLE.LSP, MKLAYR.LSP, UUTILS.LSP
;;;;
;;;; 
;;;****************************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:renote	(/, renote_error<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#getstyle">getstyle</a>, <a href="#mklayr">mklayr</a>, <a href="#txtsize">txtsize</a>, <a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="renumdwg"></a><a href="renumdwg.lsp">renumdwg.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	All rights reserved.
;;;
;;;	Copyright:  
;;;	   Edited: 7/6/2010
;;;****************************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:renamefile, c:renumdwg<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="repathimages"></a><a href="repathimages.lsp">repathimages.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 2015
;;;	   Edited: 4/2/2016
;;;
;;;****************************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:repathimages<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#ukword">ukword</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="replmnote"></a><a href="replmnote.lsp">replmnote.lsp</a>
    </td>
    <td>
    <PRE>
;;;replaces a specific MTEXT starting with the string below with a block named scrnote.dwg
;;;The block's insertion point is extracted from the insertion point of the MTEXT.

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:replmnote<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#ukword">ukword</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="repltxtnos"></a><a href="repltxtnos.lsp">repltxtnos.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:repltxtnos<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="rerot"></a><a href="rerot.lsp">rerot.lsp</a>
    </td>
    <td>
    <PRE>
;;;Rerotate a selection set of entities to be horiz to the view.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;	Copyright:	8-31-95
;;;	Edited:		9-16-15
;;;
;;;	Added option to sepcifiy rotation angle by points
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:rerot<br/>Requires:<a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="rerots"></a><a href="REROTS.LSP">rerots.lsp</a>
    </td>
    <td>
    <PRE>
;;;Rerotate a selection set of entities to be horiz to the view.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;	Copyright:	8-31-95
;;;	Edited:		8-22-05
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:rerots<br/>Requires:<a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="rerottxt"></a><a href="rerottxt.lsp">rerottxt.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:rerottxt<br/>Requires:<a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="retext"></a><a href="retext.lsp">retext.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 
;;;		   EDITED: 
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:retext<br/>Requires:<a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="revlay"></a><a href="revlay.lsp">revlay.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	All rights reserved.
;;;
;;;	Copyright:  1999-2002
;;;	   Edited:  2-22-2002

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:revlay	()<br/>Requires:<a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="revs"></a><a href="revs.lsp">revs.lsp</a>
    </td>
    <td>
    <PRE>
;;;Revision Box layer management by number, i.e., 1, 2, 3... (uses REVTXUR.DWG)
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://parqacadd.com
;;;	All rights reserved.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:revs<br/>Requires:<a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="revtxt"></a><a href="revtxt.lsp">revtxt.lsp</a>
    </td>
    <td>
    <PRE>
;;;Inserts REVTXLR.DWG, Revision Box for Lower Right corner of sheet.  (see REVS)
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	6-19-96
;;;	Edited:		6-19-96
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:revtxt<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="revxlay"></a><a href="REVXLAY.LSP">revxlay.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	All rights reserved.
;;;
;;;	Copyright:  1999-2002
;;;	   Edited:  2-22-2002

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:revxlay	()<br/>Requires:<a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="rfldwgs"></a><a href="rfldwgs.lsp">rfldwgs.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:	10/29/2014
;;;	   Edited:	12/19/2016
;;;
;;;****************************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:rfldst, c:rfldwgs, get_recent_list<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#myopen_fun">myopen_fun</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="rlayc"></a><a href="rlayc.lsp">rlayc.lsp</a>
    </td>
    <td>
    <PRE>
;;;Revert Layer colors to CLG Colors.  Will set colors by character #7
;;;of any layer name.  Character must be a (color)number or a letter A-F.
;;;I.e., 1 2 3 4 5 6 7 8 9 A B C D E F correspond to colors:
;;;1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
;;;
;;;!!!CAUTION!!! ANY Layer with these characters as their 7th char. WILL BE
;;;MODIFIED by this routine, AS WILL LAYERS from XREF's with names 8
;;;characters long. (9th char is checked for "|" and then 16th char. is
;;;checked for color key as above.)
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;            
;;;		All rights reserved without prejudice.
;;;	Copyright:	10-11-96
;;;	Edited:		10-11-96
;;;


    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:rlayc<br/>Requires:<a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="rnbindla"></a><a href="rnbindla.lsp">rnbindla.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:rnbindla<br/>Requires:<a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="rnfseries"></a><a href="rnfseries.lsp">rnfseries.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:rnfseries, get_fnr_range<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#uint">uint</a>, <a href="#ukword">ukword</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="rnlayout"></a><a href="rnlayout.lsp">rnlayout.lsp</a>
    </td>
    <td>
    <PRE>
;;;Author: (of function rnlayout which was originally named DT:LAYOUT-RENAME and posted on AUGI Forums)
;;;		R. Robert Bell
;;;		Design Technology Manager
;;;		S P A R L I N G
;;;
;;;		Date: 2005-03-11
;;;all other functions are derivatives of Robert's function
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: rnlayout, rnlayout1, rnlayouts<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#uint">uint</a>, <a href="#ukword">ukword</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="rnlayouts"></a><a href="rnlayouts.lsp">rnlayouts.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: rnlayouts<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#uint">uint</a>, <a href="#ukword">ukword</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="rockprofile"></a><a href="rockprofile.lsp">rockprofile.lsp</a>
    </td>
    <td>
    <PRE>
;;;Creates polylines in profile representing rock as determined from drill logs.
;;;
;;;Required csv format is:
;;;
;;;    Station,OB Right,DD Right,Sub Right,Rock Depth Right,OB Center,DD Center,Sub Center,Rock Depth Center,OB Left,DD Left,Sub Left,Rock Depth Left,Pattern Width,Pattern Advance
;;;
;;;OB = Overburden (dirt thickness over rock)
;;;DD = Drill Depth
;;;Sub = Subdrill (drill depth below pay depth)
;;;Rock Depth = ((DD-Sub)-OB)
;;;Pattern Width = Distance between center drill hole and left and right drill holes.
;;;Pattern Advance = Distance between center drill holes along alignment.
;;;
;;;Important Note:
;;;
;;;     When creating your spreadsheet of drill log entries enter static stations at manholes
;;;     and calculate all other drill location stations from a specified manhole by using the
;;;     drill pattern advance values.  This routine compares subsequent stations to the pattern
;;;     advance value (EQUAL...) to determine where horizontal gaps (or breaks) occur in either
;;;     the rock as drilled or in the drill pattern itself.  This is necessary to accurately
;;;     show only those locations where rock was actually found.
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: March 30, 2010
;;;		   EDITED: March 30, 2010
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:rockprofile<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#\nfile">\nfile</a>, <a href="#mklayr">mklayr</a>, <a href="#stait">stait</a>, <a href="#str_to_list">str_to_list</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="rockqty"></a><a href="rockqty.lsp">rockqty.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: rockqty<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#\nfile">\nfile</a>, <a href="#mklayr">mklayr</a>, <a href="#stait">stait</a>, <a href="#str_to_list">str_to_list</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="rotag"></a><a href="rotag.lsp">rotag.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 12/2006
;;;	   Edited: 1/2007
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:rotag<br/>Requires:<a href="#uint">uint</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="rotang"></a><a href="rotang.lsp">rotang.lsp</a>
    </td>
    <td>
    <PRE>
;;;Rerotate a selection set of entities to be horiz to the view.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;	Copyright:	7/28/2007
;;;	Edited:		7/28/2007
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:blkang<br/>Requires:<a href="#uangle">uangle</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="rotx"></a><a href="rotx.lsp">rotx.lsp</a>
    </td>
    <td>
    <PRE>
;;;Set X-hairs and optionally viewtwist.
;;;
;;;
;;;
;;;
;;;****************************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:rotx, c:svang, rotx, rotx_error<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#tsnap">tsnap</a>, <a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="roundtxt"></a><a href="roundtxt.LSP">roundtxt.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:roundtxt<br/>Requires:<a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="rrchanl"></a><a href="rrchanl.lsp">rrchanl.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  3/29/00
;;;	   Edited:  3/29/00

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:rrchanl<br/>Requires:<a href="#mklayr">mklayr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="rrect"></a><a href="rrect.lsp">rrect.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:rrect<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#mklayr">mklayr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="rrtxt"></a><a href="rrtxt.lsp">rrtxt.lsp</a>
    </td>
    <td>
    <PRE>
;;;This program will standardize text orientation of a selection set of text entities.
;;;       There is no need to worry about not selecting non-text entities
;;;       because they will be automatically filtered out of the selection set.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;             
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	6-7-94
;;;	Edited:		11-26-95
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:rrtxt<br/>Requires:<a href="#ukword">ukword</a>, <a href="#uutils">uutils</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="rsprfx"></a><a href="rsprfx.lsp">rsprfx.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:rsprfx<br/>Requires:<a href="#ukword">ukword</a>, <a href="#uutils">uutils</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="rxact"></a><a href="rxact.lsp">rxact.lsp</a>
    </td>
    <td>
    <PRE>
;Search and Replace TEXT; copyright 1996, H.C. Francis
;
;	AUTHOR: HENRY C. FRANCIS
;		425 N. ASHE ST.
;		SOUTHERN PINES, NC 28387
;              
;		All rights reserved without prejudice.
;	Copyright:	8-8-97
;	Edited:		8-8-97
;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:rxact<br/>Requires:<a href="#ukword">ukword</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="rxref"></a><a href="rxref.lsp">rxref.lsp</a>
    </td>
    <td>
    <PRE>
;;;Convert block to XREF.  (Filename must be on search path and = block name)
;;;
;;;	AUTHOR: Henry C. Francis
;;;		425 N. ASHE ST.
;;;		Southern Pines, NC 28387
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	12-20-94
;;;	Edited:	        11-10-95
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:rxref<br/>Requires:<a href="#ukword">ukword</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="sampleseries"></a><a href="sampleseries.LSP">sampleseries.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:	6/2/2015
;;;	   Edited:	7/27/2015
;;;
;;;	Requires:	AutoCAD Civil 3D, ureal.lsp, ukword.lsp, ustr.lsp
;;;
;;;****************************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:sampleseries, c:svrename<br/>Requires:<a href="#stait">stait</a>, <a href="#ukword">ukword</a>, <a href="#ureal">ureal</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="save"></a><a href="save.lsp">save.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;Stamps the drawing and logs the save.
;;;Prior to DEFUN below (COMMAND ".undefine" "save") is required or this DEFUN will not
;;;redefuine QSAVE (COMMAND ".undefine" "save") can be executed from here or anywhere
;;;else as long as it is called before this DEFUN
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:save<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#backup">backup</a>, <a href="#corpndx">corpndx</a>, <a href="#cstmp">cstmp</a>, <a href="#dlog">dlog</a>, <a href="#initandsdichk">initandsdichk</a>, <a href="#lbl">lbl</a>, <a href="#log_it">log_it</a>, <a href="#lvndx">lvndx</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="save_file_chk"></a><a href="save_file_chk.lsp">save_file_chk.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: save_file_chk<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#qsave">qsave</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#myopen_fun">myopen_fun</a>, <a href="#princdebugstrs">princdebugstrs</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="saveas"></a><a href="saveas.lsp">saveas.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;Stamps the drawing and logs the saveas.
;;;
;;;Prior to DEFUN below (COMMAND ".undefine" "saveas") is required or this DEFUN will not
;;;redefuine QSAVE (COMMAND ".undefine" "saveas") can be executed from here or anywhere
;;;else as long as it is called before this DEFUN
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:saveas<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#backup">backup</a>, <a href="#cstmp">cstmp</a>, <a href="#lbl">lbl</a>, <a href="#dlog">dlog</a>, <a href="#initandsdichk">initandsdichk</a>, <a href="#log_it">log_it</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="savelayouts"></a><a href="savelayouts.lsp">savelayouts.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:isovpall, c:savelayouts, c:slo<br/>Requires:<a href="#qsave">qsave</a>, <a href="#xrlayers">xrlayers</a>, <a href="#isovp">isovp</a>, <a href="#vpset">vpset</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="sbrest"></a><a href="sbrest.lsp">sbrest.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  3/29/00
;;;	   Edited:  3/29/00

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:sbrest<br/>Requires:<a href="#mklayr">mklayr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="sbrkl"></a><a href="sbrkl.lsp">sbrkl.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 7/26/2010
;;;		   EDITED: 7/26/2010
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:sbrkl<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#dimscl">dimscl</a>, <a href="#gvpno">gvpno</a>, <a href="#mklayr">mklayr</a>, <a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="scrimage"></a><a href="scrimage.lsp">scrimage.lsp</a>
    </td>
    <td>
    <PRE>
;;;Command: SCRIMAGE or SRI
;;;Moves, scales and rotates an existing instance of any image matching
;;;two points from the image with two corresponding points from the drawing.
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 6/17/2010
;;;		   EDITED: 7/15/2010
;;;
;;;Requires subroutine UPOINT.LSP
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:scrimage, c:sri, scrimage_error<br/>Requires:<a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="scs"></a><a href="scs.lsp">scs.lsp</a>
    </td>
    <td>
    <PRE>
;;;Place a Section Cut Symbol in the drawing at any orientation.
;;;Either one of US Army Corps of Engr or our standard.
;;;Uses UKWORD UPOINT MKLAYR SECLIN.DWG ELVCUT.DWG SECCUT.DWG
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;		All rights reserved without prejudice.
;;;	Copyright:	3-10-93
;;;	Edited:		4-7-01
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:scs<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#gvpno">gvpno</a>, <a href="#mklayr">mklayr</a>, <a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="sdlbl"></a><a href="sdlbl.lsp">sdlbl.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	All rights reserved.
;;;
;;;	Copyright: 1997
;;;	   Edited: 12-9-2016
;;;****************************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:sdlbl, sdlbl_error, sdlbl_mldrfun<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#gvpno">gvpno</a>, <a href="#make_layer_ent">make_layer_ent</a>, <a href="#mlt">mlt</a>, <a href="#mymldr">mymldr</a>, <a href="#txtsize">txtsize</a>, <a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="sdll"></a><a href="sdll.lsp">sdll.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 01-13-2000
;;;	   Edited: 01-13-2000

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:sdll<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#gvpno">gvpno</a>, <a href="#txtsize">txtsize</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="searchfiles"></a><a href="searchfiles.lsp">searchfiles.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	All rights reserved.
;;;
;;;	Copyright:  
;;;	   Edited:  

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:searchfiles<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="selaylist"></a><a href="selaylist.lsp">selaylist.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 
;;;		   EDITED: 
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:selaylist<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="sellayers"></a><a href="SELLAYERS.LSP">sellayers.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:allusedon, c:sellayers, entityis, getblocklayers<br/>Requires:<a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="selpv"></a><a href="selpv.lsp">selpv.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 
;;;		   EDITED: 
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:selpv<br/>Requires:<a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="set-this-anno-scale"></a><a href="set-this-anno-scale.lsp">set-this-anno-scale.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:
;;;	   Edited:
;;;
;;;****************************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:setannscale, set-this-anno-scale<br/>Requires:<a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="set_drive_letters"></a><a href="set_drive_letters.lsp">set_drive_letters.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;	AUTHOR: Henry C. Francis
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, N.C. 28387
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	1999-2010
;;;	Edited:		8-20-2010
;;;
;;;********************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: set_drive_letters<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="set_mjrg"></a><a href="SET_MJRG.LSP">set_mjrg.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;	Requires: ukword.lsp
;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: set_mjrg	()<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="setallpages"></a><a href="setallpages.lsp">setallpages.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:setallpages<br/>Requires:<a href="#setcurrentpagesetup">setcurrentpagesetup</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="setannoscale"></a><a href="setannoscale.lsp">setannoscale.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:setannoscale, c:setcannoscale<br/>Requires:<a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="setautofuns"></a><a href="setautofuns.lsp">setautofuns.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 07/22/2012
;;;	   Edited: 07/22/2012
;;;
;;;****************************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: setautofuns<br/>Requires:<a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="setbldg"></a><a href="setbldg.lsp">setbldg.lsp</a>
    </td>
    <td>
    <PRE>
;;;Sets all segments of a polyline (or lwpolyline) orthogonal to each other.
;;;The first and second point of the polyline are used as a baseline and the remaining points are
;;;recalculated by their original distance from the preceding point and the new orthogonal angle.
;;;The angle used is the nearest one (within 6�) of the four values determined from the baseline angle.
;;;
;;;If the angle between any two segments is greater than 6� the angle will not be changed.
;;;This value is arbitrary and is identified by a comment in the code thus: ;0.10472R = 6�
;;;The value may be changed to suit your needs.  (substitute your new value in radians)
;;;
;;;The last point is examined and adjusted if necessary to be orthogonal to both the preceding point
;;;and the first point of the polyline.
;;;
;;;This routine was created to fix poorly drawn (obviously not orthogonal) building outlines.
;;;
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:	10/23/2013
;;;	   Edited:	12/20/2016
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:setbldg<br/>Requires:<a href="#mklayr">mklayr</a>, <a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="setcurrentpagesetup"></a><a href="SetCurrentPageSetup.lsp">setcurrentpagesetup.lsp</a>
    </td>
    <td>
    <PRE>
;;;From JTBWorld.com
;;; Set a named page setup as current on current layout by avoiding command usage
;;; (SetCurrentPageSetup <AcadDocument> <PageSetupName>)
;;; (SetCurrentPageSetup (vla-get-activedocument (vlax-get-acad-object)) "Setup2")
;;;********************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: setcurrentpagesetup<br/>Requires:<a href="#mklayr">mklayr</a>, <a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="setdefplot"></a><a href="setdefplot.lsp">setdefplot.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:setdefplot<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="setminr"></a><a href="setminr.lsp">setminr.lsp</a>
    </td>
    <td>
    <PRE>
;Standalone tool for setting minor group in CLG layernames.  (uses USTR MKLAYR)

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: setminr<br/>Requires:<a href="#mklayr">mklayr</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="setmodf"></a><a href="setmodf.lsp">setmodf.lsp</a>
    </td>
    <td>
    <PRE>
;Standalone tool for setting modifier in CLG layernames.  (uses USTR MKLAYR)

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: setmodf<br/>Requires:<a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="setpages"></a><a href="setpages.lsp">setpages.lsp</a>
    </td>
    <td>
    <PRE>
;;;Copied from JTB WORLD http://www.jtbworld.com/lisp/pagesetup.htm 4/25/2012
;;; PageSetup.LSP
;;; Miscellaneous routines related to Page Setup
;;; By Jimmy Bergmark
;;; Copyright (C) 1997-2011 JTB World, All Rights Reserved
;;; Website: www.jtbworld.com
;;; E-mail: info@jtbworld.com
;;; 2000-04-05 - First release
;;; 2011-02-10 - Second release
;;; Tested on AutoCAD 2000 and AutoCAD 2011

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: addpagesetup, allpagesetups, allpagesetupsandmodeltype, allpagesetupsoflayouttype, allpagesetupsofmodeltype, deleteallpagesetups, deletepagesetup, getallpagesetupname, getpagesetupname, layout-tab-list, listpagesetups, setcurrentpagesetup, setpagesetupname	(doc<br/>Requires:<a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="setpointstyle"></a><a href="setpointstyle.lsp">setpointstyle.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:setpointstyle<br/>Requires:<a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="setprevdwg"></a><a href="setprevdwg.lsp">setprevdwg.lsp</a>
    </td>
    <td>
    <PRE>
;;;(setprevdwg): preserves the path and filename of the "previous" drawing (current drawing at the time it is run)
;;;(getprevdwg); recalls the last value preserved as the "previous" drawing (current drawing the last time (setprevdwg) was run).
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 9-18-2010
;;;		   EDITED: 4-9-2012
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: getprevdwg, setprevdwg<br/>Requires:<a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="setprofilelayers"></a><a href="setprofilelayers.lsp">setprofilelayers.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:setprlay, c:setprofilelayers<br/>Requires:<a href="#make_layer_ent">make_layer_ent</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="setpsize"></a><a href="setpsize.lsp">setpsize.lsp</a>
    </td>
    <td>
    <PRE>
;;;****************************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:setpsize, setpsize_error<br/>Requires:<a href="#uint">uint</a>, <a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="setrimelevsfrom3dpoly"></a><a href="setrimelevsfrom3dpoly.lsp">setrimelevsfrom3dpoly.lsp</a>
    </td>
    <td>
    <PRE>
;;;Sets existing MH rims in a GPDGN alignment data list from 3D Polyline Vertex elevations

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:setrimelevsfrom3dpoly<br/>Requires:<a href="#uint">uint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="setstdpage"></a><a href="setstdpage.lsp">setstdpage.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:setstdpage, setpagesetup, setstdpage<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#ukword">ukword</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="setsysvarlist"></a><a href="setsysvarlist.lsp">setsysvarlist.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 05/11/2015
;;;	   Edited: 05/11/2015
;;;
;;;****************************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:comparesavedsysvars, c:csvsv, c:setsysvarlist, c:sysvarall, makesysvarnamelist, savsvfile, setacaddisplay<br/>Requires:<a href="#file2compare)">file2compare)</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="setuser"></a><a href="SETUSER.LSP">setuser.lsp</a>
    </td>
    <td>
    <PRE>
;Standalone tool for setting modifier in CLG layernames.  (uses USTR MKLAYR)

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: setuser<br/>Requires:<a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="sfill"></a><a href="sfill.lsp">sfill.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  
;;;	   Edited:  

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:sfill<br/>Requires:<a href="#mklayr">mklayr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="shatr"></a><a href="shatr.lsp">shatr.lsp</a>
    </td>
    <td>
    <PRE>
;;;Show attribute tag and value of picked attribute.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:shatr<br/>Requires:<a href="#mklayr">mklayr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="sholay"></a><a href="sholay.lsp">sholay.lsp</a>
    </td>
    <td>
    <PRE>
;;;Turn off layers, freeze layers, set to a layer, etc. by entity selection.
;;;C:SHOLAY displays entity properties and associated layers so the correct layer
;;;can be selected for action.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	2-5-96
;;;	Edited:		7-22-2016
;;;
;;;****************************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:sholay, get-xref-path, lay_sel, lay_set, set_sel_list, set_sholay_list, sholay_error<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#sof">sof</a>, <a href="#lamacs">lamacs</a>, <a href="#mklayr">mklayr</a>, <a href="#myopen_fun">myopen_fun</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="shotxt"></a><a href="shotxt.lsp">shotxt.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 4-7-99
;;;	   Edited: 7-23-99

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:shotxt<br/>Requires:<a href="#gent">gent</a>, <a href="#make_layer_ent">make_layer_ent</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="show_debug"></a><a href="show_debug.lsp">show_debug.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:kill_debug, c:show_debug<br/>Requires:<a href="#gent">gent</a>, <a href="#make_layer_ent">make_layer_ent</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="show_log"></a><a href="show_log.lsp">show_log.lsp</a>
    </td>
    <td>
    <PRE>
;;;SHOW_LOG Shows Drawing log (EED) PRINTLOG to print.  (uses LOG_IT to make log)
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;****************************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:printlog, c:show_log, c:writelog<br/>Requires:<a href="#gent">gent</a>, <a href="#make_layer_ent">make_layer_ent</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="showcommands"></a><a href="showcommands.lsp">showcommands.lsp</a>
    </td>
    <td>
    <PRE>
;;;****************************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:*"), c:showcommands<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="showdefuns"></a><a href="showdefuns.lsp">showdefuns.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 
;;;		   EDITED: 
;;;
;;;****************************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: *"), c:*"), c:showcommands, c:showdefuns<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="showlisp"></a><a href="showlisp.lsp">showlisp.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:showlisp<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="showptstyles"></a><a href="showptstyles.LSP">showptstyles.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:ptlblstyles, c:showptstyles<br/>Requires:<a href="#c3difodoc">c3difodoc</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="showsize"></a><a href="showsize.lsp">showsize.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 1/2007
;;;	   Edited: 
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:showsize<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="shtbnd"></a><a href="shtbnd.lsp">shtbnd.lsp</a>
    </td>
    <td>
    <PRE>
;;;Draws vport bounds plines from info in CORPNDX.TXT which is written by CORPNDX.LSP.
;;;Sets current view to match a specified viewport if it has been stored in CORPNDX.TXT
;;;(See CORPNDX.LSP - the routine that stores sheet and viewport info in CORPNDX.TXT)
;;;
;;;Commands: ESBND, erases vport bounds drawn by SHTBND; and
;;;          VIEWSHT, zooms (and dview twists if necessary) the selected
;;;                   sheet vport area in view.
;;;	     PGRT, pages to the next sheet/view in the list
;;;	     PGLT, pages to the previous sheet/view in the list
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	All rights reserved.
;;;
;;;	Copyright: 9/16/99
;;;	   Edited: 12/8/2016
;;;
;;;	12/8/2016	Appended source drawing name to the end of items in 'bnds so it can be added as xdata to the sheet frames
;;;			which allows identifying of the drawing that the data came from.  Need is to correct sheet number fields
;;;			in the source drawing so that the correct field value is created with the sheet boundary or eliminate
;;;			drawings that are included in corpndx.txt but are no longer part of the set of sheets.
;;;			CORPNDX.LSP writes sheet boundary and title information to corpndx.txt in the current drawing folder
;;;			whenever our custom QSAVE is executed in a sheet.
;;;
;;;****************************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:esbnd, c:pglt, c:pgrt, c:resjnt, c:sbnd, c:sbndwgname, c:shtbnd, c:viewsht, make_bnds_lst, make_shtbnd_group, when_prev_aln<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#dimscl">dimscl</a>, <a href="#getstyle">getstyle</a>, <a href="#gvpno">gvpno</a>, <a href="#make_layer_ent">make_layer_ent</a>, <a href="#stait">stait</a>, <a href="#tsnap">tsnap</a>, <a href="#txtsize">txtsize</a>, <a href="#uint">uint</a>, <a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#ureal">ureal</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="shtfix"></a><a href="shtfix.lsp">shtfix.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  
;;;	   Edited:

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: shtfix<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#dimscl">dimscl</a>, <a href="#getstyle">getstyle</a>, <a href="#gvpno">gvpno</a>, <a href="#make_layer_ent">make_layer_ent</a>, <a href="#stait">stait</a>, <a href="#tsnap">tsnap</a>, <a href="#txtsize">txtsize</a>, <a href="#uint">uint</a>, <a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#ureal">ureal</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="shtgen"></a><a href="shtgen.lsp">shtgen.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  10-19-1999
;;;	   Edited:  10-19-1999

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:shtgen<br/>Requires:<a href="#attupd">attupd</a>, <a href="#qsave">qsave</a>, <a href="#uint">uint</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="shtndx-save"></a><a href="shtndx-save.lsp">shtndx-save.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	copyright and all other rights reserved.
;;;     Edited: 11/17/2005
;;;
;;;"Bogus" lines may be used in the Index text file to create section headers
;;;but they must contain a tab for every column that normal lines have,
;;;(i.e., include a blank the description).
;;;
;;;UINT, UPOINT, MKLAYR, GVPNO, GETSTYLE, TXTSIZE

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:mergendx, c:shtndx	(/	, chkfil, clr_txt, column_headings, dirlst, drvlst, fun, merge_ndx_files, mergendx_key_search, ndxbrkstr, restorendxlst, revsel, savendxlst, setfdrv, setone, setrem, shtndx_error, sortfiles<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#browser_help">browser_help</a>, <a href="#getstyle">getstyle</a>, <a href="#gvpno">gvpno</a>, <a href="#mklayr">mklayr</a>, <a href="#princdebugstrs">princdebugstrs</a>, <a href="#txtsize">txtsize</a>, <a href="#uint">uint</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="shtndx"></a><a href="shtndx.lsp">shtndx.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	copyright and all other rights reserved.
;;;     Edited: 11/17/2005
;;;
;;;"Bogus" lines may be used in the Index text file to create section headers
;;;but they must contain a tab for every column that normal lines have,
;;;(i.e., include a blank the description).
;;;
;;;UINT, UPOINT, MKLAYR, GVPNO, GETSTYLE, TXTSIZE

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:mergendx, c:shtndx	(/	, clr_txt, column_headings, merge_ndx_files, mergendx_key_search, ndx_chkfil, ndx_dclst, ndx_dirlst, ndx_drvlst, ndx_setone, ndx_sortfiles, ndxbrkstr, restorendxlst, rstdir, savendxlst, setndxfdrv, setrem, shtndx_error, shtndx_layer_ent	(ent_assoc_8_lst<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#browser_help">browser_help</a>, <a href="#dimscl">dimscl</a>, <a href="#getstyle">getstyle</a>, <a href="#gvpno">gvpno</a>, <a href="#mklayr">mklayr</a>, <a href="#princdebugstrs">princdebugstrs</a>, <a href="#txtsize">txtsize</a>, <a href="#uint">uint</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="sidimage"></a><a href="SIDIMAGE.LSP">sidimage.lsp</a>
    </td>
    <td>
    <PRE>
;;;Specifically for importing SID images of aerial topography keyed to State Plane Coordinates by name.
;;;Must have AutoCAD Map as this function uses the MAPInsert command.
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 4-8-2009
;;;		   EDITED: 8-23-2013
;;;
;;;	8/232/2013:	Added Draworder Back and Imageadjust fade 50% to sid image placement function.
;;;			Added While Loop for image area pick point.  Loops while an area pick point is selected.
;;;
;;;********************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:esidbnd, c:showsid, c:sidcontours, c:sidimage, calsidpt	(), fun, imageadjustmsg, mapimgcover, rstdir, setsidfdrv, sid_chkfil, sid_dclst, sid_dirlst, sid_drvlst, sid_sortfiles<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#mklayr">mklayr</a>, <a href="#uint">uint</a>, <a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="siltfen"></a><a href="siltfen.lsp">siltfen.lsp</a>
    </td>
    <td>
    <PRE>
;;;Place silt fence linear symbol as an anonymous block.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com/
;;;	All rights reserved.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:siltfen<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="sizemh"></a><a href="sizemh.lsp">sizemh.lsp</a>
    </td>
    <td>
    <PRE>
;;;Checks manholes for adequate diameter to accomodate specified pipe sizes.
;;;Requires GPDGN alignment
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  3/29/00
;;;	   Edited:  3/29/00

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:sizemh, calc_size_mh, prin_size_mh<br/>Requires:<a href="#stait">stait</a>, <a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="slent"></a><a href="slent.lsp">slent.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:slent<br/>Requires:<a href="#mklayr">mklayr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="slope"></a><a href="slope.lsp">slope.lsp</a>
    </td>
    <td>
    <PRE>
;;;Label lines and polylines with segment distance.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	2-24-96
;;;	Edited:		2-17-99
;;;
;;;********************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:plslope, c:slope, slope_error<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#dimscl">dimscl</a>, <a href="#getstyle">getstyle</a>, <a href="#gvpno">gvpno</a>, <a href="#mklayr">mklayr</a>, <a href="#uint">uint</a>, <a href="#ukword">ukword</a>, <a href="#ureal">ureal</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="slopebytext"></a><a href="slopebytext.lsp">slopebytext.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:	11-18-2014
;;;	   Edited:	11-18-2014
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:resetrim, c:slopebytext<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#dimscl">dimscl</a>, <a href="#upoint">upoint</a>, <a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="slpb"></a><a href="slpb.lsp">slpb.lsp</a>
    </td>
    <td>
    <PRE>
;;;Place a single line pipe break symbol (polyline) at the end of a line.
;;;
;;;       Requirements: transpt.lsp (point translator used with the list
;;;                                  returned by an nentsel selection)
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	4-16-95
;;;	Edited:		10-31-2005
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:slpb, slpb_error<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#dimscl">dimscl</a>, <a href="#gvpno">gvpno</a>, <a href="#make_layer_ent">make_layer_ent</a>, <a href="#mklayr">mklayr</a>, <a href="#transpt">transpt</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="sol2face"></a><a href="sol2face.lsp">sol2face.lsp</a>
    </td>
    <td>
    <PRE>
;;;Convert Solids to 3Dfaces
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://paracadd.com
;;;	All rights reserved.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:sol2face<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#dimscl">dimscl</a>, <a href="#gvpno">gvpno</a>, <a href="#make_layer_ent">make_layer_ent</a>, <a href="#mklayr">mklayr</a>, <a href="#transpt">transpt</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="solaro"></a><a href="solaro.lsp">solaro.lsp</a>
    </td>
    <td>
    <PRE>
;;;Check all selected solids, find only autocad solid arrows and replace them with arrow blocks, extend lines to their point.  (uses LDRARO.DWG MKLAYR)
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://paracadd.com
;;;	All rights reserved.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:solaro<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#mklayr">mklayr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="soldier"></a><a href="soldier.lsp">soldier.lsp</a>
    </td>
    <td>
    <PRE>
;;;Place soldier course on 'right' side of polyline or spline beginning at nearest end.
;;;Requires blocks named "CRSE<width>x<length>A" and "CRSE<width>x<length>B"
;;;where <width> and <length> are integers with their value = the dimensions x 8
;;;(i.e., = the whole number of eigths contained in each dimension)
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://paracadd.com
;;;	All rights reserved.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:soldier<br/>Requires:<a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="sopen"></a><a href="sopen.lsp">sopen.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: sopen<br/>Requires:<a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="sortmh"></a><a href="sortmh.lsp">sortmh.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:sortmh<br/>Requires:<a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="sp"></a><a href="sp.LSP">sp.lsp</a>
    </td>
    <td>
    <PRE>
;TIP1344.LSP:    SP.LSP    3D Spiral stairs    (c)1997, Xu-Hong Yang 


    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:sp, dtr, rtd, sbuild, spcalc, spinfo<br/>Requires:<a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="splittolayers"></a><a href="splittolayers.lsp">splittolayers.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:splittolayers<br/>Requires:<a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="splitvp"></a><a href="splitvp.lsp">splitvp.lsp</a>
    </td>
    <td>
    <PRE>
;;;Requirements:
;;;
;;;This Drawing (block) must exist on AutoCAD's search path (or in the drawing):
;;;	##ppgridlbl
;;;		(#'s are wildcards which must be replaced with digits representing profile horizontal scale)
;;;		These blocks must contain specific attribute tags for elevations,
;;;	i.e.:
;;;
;;;	left side attribute tags (ordered before right side tags)
;;;		MLB+0, MLB+5, MLB+10, etc. but ordered from highest MLB+## to MLB+0;
;;;		Space these vertically at 1" unscaled (english), unit distance (metric)
;;;		(The total number of these tags is unlimited)
;;;
;;;	right side attribute tags
;;;		MRB+0, MRB+5, MRB+10, etc. also ordered from highest MRB+## to MRB+0;
;;;		(The total number of these tags is unlimited)
;;;
;;;Drawing must contain:
;;;	The profile viewport on layer "*VI01*NPLT*" (preferably "??VI01?NPLT" per CLG)
;;;	The profile grid block named "##ppgrid" or "##spclgrid" or "##spfbgrid"
;;;		(#'s are wildcards which must be replaced with digits representing profile horizontal scale)
;;;		These profile grid blocks must contain specific attribute tags for stations and elevations,
;;;	i.e.:
;;;
;;;	left side attribute tags (ordered before right side tags)
;;;		LB+0, LB+5, LB+10, etc. but ordered from highest LB+## to LB+0;
;;;		(The total number of these tags is unlimited)
;;;
;;;	right side attribute tags
;;;		RB+0, RB+5, RB+10, etc. also ordered from highest RB+## to RB+0;
;;;		(The total number of these tags is unlimited)
;;;
;;;	station attribute tags
;;		0, +0, 1, +1, 2, +2, etc. from left to right as many as are required
;;;		place these in pairs at scaled 100' increments (english), 50m increments (metric).
;;;		integer tags are right justified and +integer tags are left justified so that the first character,
;;;		typically a plus sign (+), will lay directly under the grid line.  This solves justification related
;;;		misalignment of labels.
;;;		(The total number of these tags is unlimited)
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;	Edited:	3/30/2007

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:splitvp, splitvp_error<br/>Requires:<a href="#upoint">upoint</a>, <a href="#ustael">ustael</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="spot"></a><a href="spot.lsp">spot.lsp</a>
    </td>
    <td>
    <PRE>
;;;Place spot elevation X's and text. (uses GETSTYLE UPOINT USTR)
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:spot<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#getstyle">getstyle</a>, <a href="#txtsize">txtsize</a>, <a href="#upoint">upoint</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="spotldrs"></a><a href="SPOTLDRS.LSP">spotldrs.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:spotldrs<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#getstyle">getstyle</a>, <a href="#txtsize">txtsize</a>, <a href="#upoint">upoint</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="spt"></a><a href="SPT.LSP">spt.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  
;;;	   Edited:  

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:spt, call_spt_dialog, reset_typ, spt_error<br/>Requires:<a href="#(substr">(substr</a>, <a href="#c3difodoc">c3difodoc</a>, <a href="#stdstyle">stdstyle</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="squig"></a><a href="squig.lsp">squig.lsp</a>
    </td>
    <td>
    <PRE>
;;;Creates LWPolyline with alternating long and short reversing arcs
;;;We use it for flexible cable symbology (as opposed to conduit) on electrical drawings.
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 8/2/2007
;;;		   EDITED: 8/2/2007
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:rsquig, c:squig, seg_data<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#mklayr">mklayr</a>, <a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="srcht"></a><a href="srcht.lsp">srcht.lsp</a>
    </td>
    <td>
    <PRE>
;;;"Display Text Found by Search" dialog.
;;;
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. Ashe Street
;		Southern Pines, NC 28387
;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	12-22-97
;;;	Edited:		12-22-97
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:srcht, del_text, text_list, text_mod<br/>Requires:<a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="srstring"></a><a href="srstring.lsp">srstring.lsp</a>
    </td>
    <td>
    <PRE>
;;;Search and replace text in a string.  Returns the new string if a match is found, else it returns original string.
;;;Search is case sensitive.
;;;Autolisp wildcard characters: *?,@`#.~ must each be preceded by the escape character ` for them to match as literal characters.
;;;i.e., the escape character ` causes the next character to be read literally.
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 
;;;		   EDITED: 
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: srstring<br/>Requires:<a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="srtext"></a><a href="SRTEXT.lsp">srtext.lsp</a>
    </td>
    <td>
    <PRE>
;;;Search and Replace strings within TEXT, DIMENSIONS, MTEXT, ATTRIBS, and ATTDEFS
;;;copyright 1996-2003 by H.C. Francis
;;;
;;;Original command name RTEXT changed to SRTEXT 12/20/01
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	2-21-96
;;;	Edited:		9-30-16
;;;
;;;Requires: UANGLE UDIST UINT UKWORD UPOINT UREAL USTR
;;;****************************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:resrtext, c:setfield1, c:setfield2, c:srtext	(/	, c:srtext_help, replctxtfun, srtext	(original_str, srtext_error, srtext_errors<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#srtext">srtext</a>, <a href="#uangle">uangle</a>, <a href="#udist">udist</a>, <a href="#uint">uint</a>, <a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#ureal">ureal</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="srvang"></a><a href="srvang.lsp">srvang.lsp</a>
    </td>
    <td>
    <PRE>
;;;Format supplied radian angle in Northing and Easting format.
;;;Degree symbol is specified using either (CHR 176) or %%221 depending upon
;;;current style font.  Also, pads zeros in minutes and seconds for
;;;2 digit zero to 9 readings.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: srvang<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#srtext">srtext</a>, <a href="#uangle">uangle</a>, <a href="#udist">udist</a>, <a href="#uint">uint</a>, <a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#ureal">ureal</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="ssbylayer"></a><a href="ssbylayer.lsp">ssbylayer.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: ssbylayer<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#srtext">srtext</a>, <a href="#uangle">uangle</a>, <a href="#udist">udist</a>, <a href="#uint">uint</a>, <a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#ureal">ureal</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="sslayer"></a><a href="sslayer.lsp">sslayer.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: sslayer<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#srtext">srtext</a>, <a href="#uangle">uangle</a>, <a href="#udist">udist</a>, <a href="#uint">uint</a>, <a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#ureal">ureal</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="ssln"></a><a href="ssln.lsp">ssln.lsp</a>
    </td>
    <td>
    <PRE>
;;;Label line length (decimal feet).  (XREFs Blocks or current drawing, plines too.)
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:ssln<br/>Requires:<a href="#mklayr">mklayr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="ssnap"></a><a href="ssnap.lsp">ssnap.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;Sets sysvars SNAPANG and SNAPBASE from picked points

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:ssnap<br/>Requires:<a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="stacklist"></a><a href="stacklist.lsp">stacklist.lsp</a>
    </td>
    <td>
    <PRE>
;;;recursively dumps contents of a list (expands sublists)

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: collist, stacklist<br/>Requires:<a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="stairpl"></a><a href="stairpl.lsp">stairpl.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  
;;;	   Edited:  

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:stairelf, c:stairels, c:stairpl, make_strhids, maketread<br/>Requires:<a href="#mklayr">mklayr</a>, <a href="#n">n</a>, <a href="#n)">n)</a>, <a href="#uint">uint</a>, <a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="stait"></a><a href="stait.lsp">stait.lsp</a>
    </td>
    <td>
    <PRE>
;;;Subroutine to convert a real no into a station string.  If m_units=T then string is metric.
;;;
;;;		Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: stait<br/>Requires:<a href="#mklayr">mklayr</a>, <a href="#n">n</a>, <a href="#n)">n)</a>, <a href="#uint">uint</a>, <a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="stap"></a><a href="stap.lsp">stap.lsp</a>
    </td>
    <td>
    <PRE>
;;;place sewer tap on a single run.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  6-1-2001
;;;	   Edited:  6-1-2001

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:stap<br/>Requires:<a href="#ukword">ukword</a>, <a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="stat"></a><a href="stat.lsp">stat.lsp</a>
    </td>
    <td>
    <PRE>
;;;Modemacro - shows full <path><filename> Ortho Snap Tablet Pspace
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:stat<br/>Requires:<a href="#ukword">ukword</a>, <a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="statutxt"></a><a href="statutxt.lsp">statutxt.lsp</a>
    </td>
    <td>
    <PRE>
;;;Inserts not-for-construction-cover.dwg at a fixed location matching our cover sheet.
;;;This is a dynamic block that contains the several statutory statements that
;;;may be required on a drawing sealed by an engineer in North Carolina.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	1-9-13
;;;	Edited:		1-9-13
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:statutxt<br/>Requires:<a href="#ukword">ukword</a>, <a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="statutxta"></a><a href="statutxta.lsp">statutxta.lsp</a>
    </td>
    <td>
    <PRE>
;;;Inserts not-for-construction-cover.dwg at a fixed location matching our cover sheet.
;;;This is a dynamic block that contains the several statutory statements that
;;;may be required on a drawing sealed by an engineer in North Carolina.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	1-9-13
;;;	Edited:		1-9-13
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:statutxta<br/>Requires:<a href="#ukword">ukword</a>, <a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="statutxts"></a><a href="statutxts.lsp">statutxts.lsp</a>
    </td>
    <td>
    <PRE>
;;;Inserts not-for-construction-standard.dwg at a fixed location matching our standard (ANSI-D) sheet.
;;;This is a dynamic block that contains the several statutory statements that
;;;may be required on a drawing sealed by an engineer in North Carolina.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	1-9-13
;;;	Edited:		1-9-13
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:statutxts<br/>Requires:<a href="#ukword">ukword</a>, <a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="statutxtsa"></a><a href="statutxtsa.lsp">statutxtsa.lsp</a>
    </td>
    <td>
    <PRE>
;;;Inserts not-for-construction-standard.dwg at a fixed location matching our standard (ANSI-D) sheet.
;;;This is a dynamic block that contains the several statutory statements that
;;;may be required on a drawing sealed by an engineer in North Carolina.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	1-9-13
;;;	Edited:		1-9-13
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:statutxtsa<br/>Requires:<a href="#ukword">ukword</a>, <a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="stdlayr"></a><a href="stdlayr.lsp">stdlayr.lsp</a>
    </td>
    <td>
    <PRE>
;;;Convert layer names to Standard CLG (as modified for color and linetype). (PER OUR STANDARD)
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	2-6-96
;;;	Edited:		6-30-2006
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:stdlayr, fix_lay, getdefs, laylst, rnlay<br/>Requires:<a href="#mklayr">mklayr</a>, <a href="#ukword">ukword</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="stdltypes"></a><a href="stdltypes.lsp">stdltypes.lsp</a>
    </td>
    <td>
    <PRE>
;;;Creates linetypes that are included in ltdefs_list below (no need to load linetype files).
;;;Entries in the list must have group codes 2, 3, 72, and 73 first followed by dash, dot, and space codes
;;;(49 followed by 74) and group codes 75, 340, 46, 50, 44, 45, and 9 for shapes or text if applicable.
;;;Shapes and styles, if used, must already exist in the drawing.
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 5-19-2010
;;;		   EDITED: 5-19-2010
;;;
;;;****************************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:stdltypes, do_foreach_ltdefs_list, make_ltdefs_list, stdltype<br/>Requires:<a href="#errortrap">errortrap</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="stdstyle"></a><a href="STDSTYLE.LSP">stdstyle.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;Written by:	Henry C. Francis
;;;	http://www.paracadd.com
;;;
;;;	 Date:		11/1/2001
;;;	 Edited:	1/8/2007
;;;
;;;Purpose:	To convert drawing contents from old font/style standard to new
;;;		font/style standard. This is accomplished by replacing the old
;;;		fonts and styles with the new standard AutoCAD fonts in new
;;;		CDM standard styles (RomanS, Arial). The old unreferenced styles
;;;		are then purged from the drawing.
;;;
;;;	Old Font	Old Style	New Style	New Font
;;;-----------------------------------------------------------------------------
;;;	CDMLROY.SHX	<any w/ font>	RomanS		RomanS.shx
;;;	CDMLROYC.SHX	ditto		RomanS		RomanS.shx
;;;	CDMLROYS.SHX	ditto		RomanS		RomanS.shx
;;;	CDMHELV.SHX	ditto		Arial		Arial.ttf
;;;	ARCHS.SHX	ditto		SketchFlow	SketchFlow Print.ttf
;;;	NOTING.SHX	ditto		RomanS		RomanS.shx
;;;	TXT.SHX		ditto		RomanS		RomanS.shx
;;;	BOLD.SHX	ditto		Arial		Arial.ttf
;;;	SYMETEO.SHX	ditto		Symeteo		Symeteo.ttf
;;;	SYMAP.SHX	ditto		Symap		Symap.ttf
;;;
;;;	(old 15� oblique that was built into CDMLROYS is made part of existing
;;;	text/mtext entity definitions by this routine. The RomanS style has an
;;;	oblique angle of zero).
;;;
;;;	Added provision for ROMANSOB style used to create 15� oblique dimension text.
;;;	Addressed fact that style "Standard" cannot be purged.
;;;	Excluded xreference styles from being considered.
;;;
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:stdstyle, procmtxstr, spec_char, updstrfont, updstyle<br/>Requires:<a href="#errortrap">errortrap</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="stepz"></a><a href="STEPZ.LSP">stepz.lsp</a>
    </td>
    <td>
    <PRE>
;;;NEWZ: Set "Z"; MATZ: match "Z"; SHOWZ Display "Z"; OFFZ Set "Z" +- reference "Z"
;;;
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:      1-26-96
;;;	Edited:		8-28-96
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:stepz<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#mklayr">mklayr</a>, <a href="#ukword">ukword</a>, <a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="stlayr"></a><a href="stlayr.lsp">stlayr.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:stlayr<br/>Requires:<a href="#mklayr">mklayr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="str_to_list"></a><a href="str_to_list.lsp">str_to_list.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;		COPYRIGHT: January, 2010
;;;		   EDITED: March, 2010
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: str_to_list<br/>Requires:<a href="#mklayr">mklayr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="striplay"></a><a href="striplay.lsp">striplay.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:striplay, c:stripltyp<br/>Requires:<a href="#mklayr">mklayr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="striplayersuffix"></a><a href="striplayersuffix.lsp">striplayersuffix.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 7/1/2011
;;;		   EDITED: 7/1/2011
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:striplayersuffix<br/>Requires:<a href="#tolayer">tolayer</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="stript"></a><a href="stript.lsp">stript.lsp</a>
    </td>
    <td>
    <PRE>
;;;Strips duplicate vertices from LWpolylines

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:stript<br/>Requires:<a href="#tolayer">tolayer</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="stripvertex"></a><a href="stripvertex.lsp">stripvertex.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 08-15-2013
;;;	   Edited: 08-15-2013
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:stripvertex<br/>Requires:<a href="#tolayer">tolayer</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="styinf"></a><a href="styinf.lsp">styinf.lsp</a>
    </td>
    <td>
    <PRE>
;;;Show current style NAME, FONT, HEIGHT
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:tt<br/>Requires:<a href="#tolayer">tolayer</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="sublst"></a><a href="SUBLST.LSP">sublst.lsp</a>
    </td>
    <td>
    <PRE>
;;; C:SUBLST	Creates, Opens or Renews a catalog of DEFUN'd and DEFUN-Q'd
;;;		commands and/or functions within all AutoLisp files in the
;;;		selected folder for use with C:FINDFUNC
;;;
;;; C:FINDFUNC	Lists all AutoLisp files containing DEFUN'd OR DEFUN-Q'd
;;;		commands and/or functions matching the user's entry.
;;;		Enter command names as you would at the command line (w/o C:)
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;		COPYRIGHT: 1-20-2007
;;;		   EDITED: 1-20-2007
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:findfunc, c:sublst, fundefloc<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#ukword">ukword</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="subt"></a><a href="subt.lsp">subt.lsp</a>
    </td>
    <td>
    <PRE>
;;;Place a detail subtitle text string at 'our' standard size (175 leroy template, 0.175" @ 1:1) and color (cyan) on the standard layer (?-????4NOTE) (uses GETSTYLE MKLAYR)
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;	Copyright:	4-15-94
;;;	Edited:		2-17-2004
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:subt<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#getstyle">getstyle</a>, <a href="#mklayr">mklayr</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="sumlines"></a><a href="SUMLINES.LSP">sumlines.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:sumlines<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#getstyle">getstyle</a>, <a href="#mklayr">mklayr</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="sumtextnos"></a><a href="sumtextnos.lsp">sumtextnos.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 10/20/2016
;;;	   Edited: 10/20/2016
;;;
;;;****************************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:sum#, c:sumtextnos<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#getstyle">getstyle</a>, <a href="#mklayr">mklayr</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="supportpaths"></a><a href="SupportPaths.lsp">supportpaths.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:supportpaths<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#getstyle">getstyle</a>, <a href="#mklayr">mklayr</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="surfacedata"></a><a href="surfacedata.lsp">surfacedata.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:surfacedata, optioncase<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#uint">uint</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="survang"></a><a href="survang.lsp">survang.lsp</a>
    </td>
    <td>
    <PRE>
;;;Format supplied radian angle in Northing and Easting format.
;;;Degree symbol is specified using (char 176) OR %%221 (custom font character) depending on the font.
;;;Also, pads zeros in minutes and seconds for 2 digit zero to 9 readings.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: survang<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#uint">uint</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="sv-env"></a><a href="sv-env.lsp">sv-env.lsp</a>
    </td>
    <td>
    <PRE>
;;; -*-  Mode: LISP -*- Syntax: AutoLISP (C) Benjamin Olasov 1988
;;;      environment writing function **Release 9**

;;; -*-  Mode: LISP -*- Syntax: AutoLISP (C) Benjamin Olasov 1988, 1989

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; File: SV-ENV.LSP Copyright (C) Benjamin Olasov    Graphic Systems, Inc. ;;;
;;; Inquiries:                                                              ;;;
;;;                                                                         ;;;
;;;     Benjamin Olasov                                                     ;;;
;;;     Graphic Systems, Inc.:                                              ;;;
;;;                                                                         ;;;
;;;                    New York, NY:   PH (212) 725-4617                    ;;;
;;;                    Cambridge, MA:  PH (617) 492-1148                    ;;;
;;;                    MCI-Mail:       GSI-NY   344-4003                    ;;;
;;;                    Arpanet:        olasov@cs.columbia.edu               ;;;
;;;                                                                         ;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; This program is provided 'as is' without warranty of any kind, either 
;; expressed or implied, including, but not limited to the implied warranties of
;; merchantability and fitness for a particular purpose.  The entire risk as to
;; the quality and performance of the program is with the user.  Should the 
;; program prove defective, the user assumes the entire cost of all necessary 
;; servicing, repair or correction. 
;;
;; AutoLisp and AutoCad are registered trademarks of AutoDesk, Inc.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; This function C:SV-ENV saves the current LISP environment into a file with
;; the name of the drawing and with the extension .LSP.  For example, if the
;; name of the current drawing whose LISP environment you wish to save is
;; FOOBAR.DWG, then the name of the LISP file to which the environment is saved
;; will be FOOBAR.LSP.
;; For this function to work at all, you must have placed a marker in your
;; ATOMLIST (AutoLISP's record of all LISP variables, functions, etc.).
;; To do this, simply place the following line at the end of your ACAD.LSP file:
;; (setq MARK nil)
;; That's all.  Then the SV-ENV function will not attempt to record 
;; AutoLISP's primitive functions, or the functions automatically loaded with
;; your ACAD.LSP.
;;
;; To restore your previous environment of variables and user functions, just
;; type (load "dwgname") at the command prompt, where "dwgname" is the name
;; of the drawing whose LISP environment you saved.

;; This is a beta version, which I hope to improve soon.
;; If you have ideas on how to improve this, please don't just munge this file
;; and redistribute it- let me hear your ideas.  If they would create errors
;; of which I'm aware, I'll let you know- if not, I'll include them in a 
;; revision. 


    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:sv-env, write-atom<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#uint">uint</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="sview"></a><a href="sview.lsp">sview.lsp</a>
    </td>
    <td>
    <PRE>
;;;The old SVIEW has been completely replaced by KEYVIEWS.LSP
;;;which defines the new C:SVIEW and several other commands
;;;This SVIEW.LSP is to ensure older versions of SVIEW.LSP do not
;;;interfere with the proper operation of the new command.

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: dummy_sview<br/>Requires:<a href="#keyviews">keyviews</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="switchdefaultprinter"></a><a href="switchdefaultprinter.LSP">switchdefaultprinter.lsp</a>
    </td>
    <td>
    <PRE>
;;;From Thalon (Mechanical) at "http://www.eng-tips.com/viewthread.cfm?qid=175937" copied  4/24/2012
;;;Changes text strings to match what I use.

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:switchdefaultprinter, getactiveplotdevice, getcanonicalmedianames, getplotstyletablenames<br/>Requires:<a href="#keyviews">keyviews</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="swrcadlaycolor"></a><a href="swrcadlaycolor.lsp">swrcadlaycolor.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:swrcadlaycolor<br/>Requires:<a href="#keyviews">keyviews</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="symblt"></a><a href="symblt.lsp">symblt.lsp</a>
    </td>
    <td>
    <PRE>
;;;Place a user supplied block name near the end of a line. (bend part, tee, gv, bfv)
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 8-6-2000
;;;	Edited:   11-11-2011
;;;
;;;****************************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:symblt, symblt_error<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#mklayr">mklayr</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="symbpt"></a><a href="symbpt.lsp">symbpt.lsp</a>
    </td>
    <td>
    <PRE>
;;;********************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:symbpt, symbpoint_error<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#c3difodoc">c3difodoc</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="tags"></a><a href="TAGS.LSP">tags.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  2005
;;;	   Edited:  10-9-2006
;;;****************************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:tags, tags_error<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#getstyle">getstyle</a>, <a href="#gvpno">gvpno</a>, <a href="#make_layer_ent">make_layer_ent</a>, <a href="#txtsize">txtsize</a>, <a href="#ukword">ukword</a>, <a href="#ulbl">ulbl</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="tally"></a><a href="tally.lsp">tally.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:tally<br/>Requires:<a href="#attupd">attupd</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="tblk"></a><a href="tblk.lsp">tblk.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:tblk<br/>Requires:<a href="#attupd">attupd</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="tcl"></a><a href="tcl.lsp">tcl.lsp</a>
    </td>
    <td>
    <PRE>
;Raw graphic construction tool for square-to-round transitions (sheet metal)

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:ccl, c:tcl<br/>Requires:<a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="tdlt"></a><a href="tdlt.lsp">tdlt.lsp</a>
    </td>
    <td>
    <PRE>
;;;Set custom linetypes (command-ltype) TDLT-TDL, TDRT-TDR, and SEDF-SEDFENCE
;;;Use TDLT to point left and TDRT to point right, then use PLREV.LSP to reverse them if they point the wrong way.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com/
;;;	All rights reserved.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:dblsedf, c:enkalt, c:excelt, c:geot, c:gllt, c:glrt, c:grlt, c:grrt, c:pltools, c:rrap, c:sedf, c:stream, c:tdlt, c:tdrt, c:tracks, c:treeln, c:wdlne, c:wdlnp, c:wirefe, c:wirefp, c:woodfe, c:woodfp, loadcustltype<br/>Requires:<a href="#custltype">custltype</a>, <a href="#initandsdichk">initandsdichk</a>, <a href="#mklayr">mklayr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="teelt"></a><a href="teelt.lsp">teelt.lsp</a>
    </td>
    <td>
    <PRE>
;;;Place a block named TEELT near the end of a line. (a bend part)
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	All rights reserved.

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:teelt<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#svlayr">svlayr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="temp.vars"></a><a href="temp.vars.LSP">temp.vars.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:teelt<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#svlayr">svlayr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="textline"></a><a href="textline.lsp">textline.lsp</a>
    </td>
    <td>
    <PRE>
;;;Place a custom linetype as an anonymous block. It allows linear as well as curved sections. (uses UPOINT UREAL)
;;;       The user toggles
;;;       between the two during placement.  The block entity is not placed in
;;;       the drawing until the user terminates the input with a return
;;;       supplied to the "next point" prompt.  Size of the graphic elements
;;;       is determined by the dimscale.  If the user matches the dimscale
;;;       with the drawing scale the graphics will scale the same on all
;;;       drawings.  The linetype consists of equally spaced X's (nearest
;;;       to 1/2" spacing at scale for the length of arc or line) and lines
;;;       between them that do not touch.  If the variable modf = "EXST" the
;;;       circle radius is 0.0625125 x dimscale, if not it is 0.0469 x dimscale.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	6-7-95
;;;	Edited:		7-29-2005
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: bulge, c:textline<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#upoint">upoint</a>, <a href="#ureal">ureal</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="textout"></a><a href="TEXTOUT.LSP">textout.lsp</a>
    </td>
    <td>
    <PRE>
;;; TEXTOUT.LSP - KETIV
;;;
;;; Copyright 1986, 1987, 1988, 1989 by KETIV Technologies, Inc.
;;; All rights reserved.
;;; KETIV Technologies, Inc.
;;; 6645 NE 78th Court #C-2
;;; Portland, OR 97218
;;;
;;; Layer Group: None
;;;
;;; Menu Location: Text I/O pull down
;;;
;;; Purpose: To export text strings from a drawing to an ascii text file.
;;;
;;; Prompts: Filename to write <Name.ext>
;;;          Pick the text in the order in which it will be written to the file:
;;;          Select objects:
;;;          XX Lines of text written to "file"
;;;
;;; Assumptions/Limitations: None
;;;
;;;======================================================================================================
;;; Initialize memory and important system variables

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:textout<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#upoint">upoint</a>, <a href="#ureal">ureal</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="textscrnmem"></a><a href="textscrnmem.lsp">textscrnmem.lsp</a>
    </td>
    <td>
    <PRE>
;;;Sets AutoCAD's number of Text Screen lines that are remembered (viewable by scrolling up in the text screen).
;;;nlines=2048 is the maximum legal value for the HistoryLines property
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 8/31/2010
;;;		   EDITED: 8/31/2010
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: textscrnmem<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#upoint">upoint</a>, <a href="#ureal">ureal</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="thgt"></a><a href="thgt.lsp">thgt.lsp</a>
    </td>
    <td>
    <PRE>
;;;Modify the text height of a selection set of text entities. (uses USTR)
;;;       The only input required is the desired
;;;       text width factor and selection of the text to modify.  There
;;;       is no need to worry about not selecting non-text entities
;;;       because they will be automatically filtered out of the
;;;       selection set.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	6-7-94
;;;	Edited:		11-26-95
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:thgt<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="thgts"></a><a href="thgts.lsp">thgts.lsp</a>
    </td>
    <td>
    <PRE>
;;;Modify the text height of a related selection set of text entities by scaling to the ratio NEW/EXIST or by factor Xnn.nnn (uses USTR UPOINT)
;;;       The only input required is the desired text width factor and selection
;;;       of the text to modify.  There is no need to worry about selecting
;;;       non-text entities because they will be automatically filtered out of
;;;       the selection set.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	7-13-94
;;;	Edited:		10-31-2005
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:thgts<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#upoint">upoint</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="thinpl"></a><a href="thinpl.lsp">thinpl.lsp</a>
    </td>
    <td>
    <PRE>
;;;Thin Polyline vertices based on user specified angles and distances. (uses UANGLE UDIST)
;;;
;;;	Requires: UUTILS.LSP  (uangle, udist)
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	5-14-96
;;;	Edited:		9-6-2005
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:thinpl, thinpl<br/>Requires:<a href="#uangle">uangle</a>, <a href="#udist">udist</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="thkfix"></a><a href="thkfix.lsp">thkfix.lsp</a>
    </td>
    <td>
    <PRE>
;;;Finds entities on layers having linetypes with embedded text and
;;;entities whose linetypes have embedded text and changes their
;;;thickness to 1.0 so they will hide properly with hidden line removal.
;;;
;;;	AUTHOR:
;;;		HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;  Copyright: 5/25/01
;;;     Edited: 5/25/01
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:thkfix<br/>Requires:<a href="#wipeprom">wipeprom</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="tif2pdf"></a><a href="tif2pdf.lsp">tif2pdf.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 12/18/2012
;;;	   Edited: 12/18/2012
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:tif2pdf<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#get_project_data">get_project_data</a>, <a href="#have_irfanview">have_irfanview</a>, <a href="#sort">sort</a>, <a href="#uint">uint</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="tiffdpi"></a><a href="tiffdpi.lsp">tiffdpi.lsp</a>
    </td>
    <td>
    <PRE>
;;;TIFFDPI Sets the DPI for TIFF files in the DefaultPlotToFilePath location or another selected location
;;;Default DPI is either the value of dpiresstr (as a string) or 288.  (dpiresstr is set within my BPLOT2k lisp application but can be set independently)
;;;If halfdpi evaluates True the default dpi is doubled to produce half-size images.  (halfdpi is set within my BPLOT2k lisp application but can be set independently)
;;;
;;;Requires DOSLIB 			from Robert McNeel & Associates (free download @ http://www.mcneel.com/)
;;;Requires IrfanView 			(free download from http://www.irfanview.com/)  This is an external application which is executed using a DOSLIB function.
;;;Requires autodpifix.lsp 		(free from http://www.paracadd.com/) Subroutine for fixing the DPI of a single file.  It is designed to be called by autolisp or scripts.
;;;Requires check_for_doslib.lsp	(free from http://www.paracadd.com/) Subroutine for insuring the correct version of DOSLIB is loaded.
;;;Requires have_irfanview.lsp		(free from http://www.paracadd.com/) Subroutine for insuring IrfanView is available.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:tiffdpi<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#autodpifix">autodpifix</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#have_irfanview">have_irfanview</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="tifflist"></a><a href="tifflist.lsp">tifflist.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:tifflist<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#autodpifix">autodpifix</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#have_irfanview">have_irfanview</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="tinborder"></a><a href="tinborder.lsp">tinborder.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:	5-12-2014
;;;	   Edited:	5-12-2014
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:tinborder<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#autodpifix">autodpifix</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#have_irfanview">have_irfanview</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="tincr"></a><a href="tincr.lsp">tincr.lsp</a>
    </td>
    <td>
    <PRE>
;;;Place text with incremented numbers.
;;;Requires uutils.lsp, dimscl.lsp getstyle.lsp mklayr.lsp
;;;(and maybe some I didn't catch)
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	All rights reserved.
;;;
;;;	Copyright:  
;;;	   Edited:  

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:tincr<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#getstyle">getstyle</a>, <a href="#txtsize">txtsize</a>, <a href="#uint">uint</a>, <a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#ustr">ustr</a>, <a href="#uutils">uutils</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="tinmacs"></a><a href="TINMACS.LSP">tinmacs.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:myaddl, c:myaddp, c:mycc, c:myeditp, c:myerasel, c:myerasep, c:myff, c:myi3dl, c:mysavtin<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#getstyle">getstyle</a>, <a href="#txtsize">txtsize</a>, <a href="#uint">uint</a>, <a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#ustr">ustr</a>, <a href="#uutils">uutils</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="tnote"></a><a href="tnote.lsp">tnote.lsp</a>
    </td>
    <td>
    <PRE>
;;;Dialog utility for storing, editing and retrieving/placing Typical Notes into a drawing.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	All rights reserved.
;;;
;;;	Copyright:  2/1995
;;;	   Edited:  11/26/2013
;;;
;;;Requires:	getstyle.lsp, browser_help.lsp, mymldr.lsp, mlt.lsp, upoint.lsp, uint.lsp, ukwword.lsp,
;;;		ureal.lsp, mltstyle.lsp, dimscl.lsp, remlt.lsp, errortrap.lsp. mklayr.lsp, tnote.dcl
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: add_tn_item, c:tnote, c:tnote_trace, c:tnote_untrace, chk_tnlst, citocs, clear_wsnote, copyto_wsp, cstoci, del_tnlines, do_abstr, f_tnote, fix_pview_lst, fltr_tnlist, get_color_no, get_tnotedat_file, intchk, major_action, mandatbak, new_tnote_dat, newitem_mgr, paste_wsedits, place_note, pview, renametnbfile, repl_item, res_tn_thts, set-as-existing, set-m-leader, set-place-tnote-text, set-t-leader, set_ascolor, set_bubl, set_color_swatch, set_colr_mode, set_decimal, set_just, set_leroy, set_pview, set_srchbubl, set_tnote_ebox, set_tnote_list, set_tnotecolor, set_tnotecolor_no, set_wrap, sets_ldrc, sets_txtc, setv_ldrc, setv_txtc, srch_tnlist, tn-pcpyrt, tn_set_caps, tnote_error, tnote_sorter, upd_tn_thts, upd_tnote_dat, wrap_lines_action, wrap_slide_action, wrap_value_action<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#browser_help">browser_help</a>, <a href="#dimscl">dimscl</a>, <a href="#getstyle">getstyle</a>, <a href="#mlt">mlt</a>, <a href="#mymldr">mymldr</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="todo"></a><a href="todo.lsp">todo.lsp</a>
    </td>
    <td>
    <PRE>


    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:modo, c:todo<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#browser_help">browser_help</a>, <a href="#dimscl">dimscl</a>, <a href="#getstyle">getstyle</a>, <a href="#mlt">mlt</a>, <a href="#mymldr">mymldr</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="toglabels"></a><a href="toglabels.lsp">toglabels.lsp</a>
    </td>
    <td>
    <PRE>
;;;This function replaces style names used in the current drawing and ending with "Normal" or "Raster"
;;;with matching style names of the opposite ending.  The styles must be in the current drawing and have
;;;the same name except for the ending (not case sensitive).  Assigning a Raster plot device to a layout
;;;will cause C3D label styles and other objects to be scaled down to 1/12th their intended size.
;;;For label styles my solution is to create duplicate styles with parameters that are 12X larger for use
;;;with a raster plot device.  This function will swap out the Pipe and Structure label styles on command.
;;;Eventually I will modify the function to swap out all other C3D label styles meeting the criteria.
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:	9/29/2015
;;;	   Edited:	9/29/2015
;;;
;;;Assistance of Jeff_M, also a frequent Swamper, acknowledged:
;;;http://forums.autodesk.com/t5/autocad-civil-3d-customization/accessing-pipe-network-label-style-object-collection-s-via-vlisp/m-p/5836183
;;;Specifically: how to access the AeccPipeApplication;
;;;(SETQ c3dpipe (VLA-GETINTERFACEOBJECT *acad* (STRCAT "AeccXUiPipe.AeccPipeApplication." verstr)))
;;;I substituted 'verstr for 'c3d in Jeff's code
;;;
;;;Requires Subroutines: UKWORD.LSP, CHKKWDS.LSP
;;;
;;;****************************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:toglabels, swapstyles<br/>Requires:<a href="#c3difodoc">c3difodoc</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="tolayer"></a><a href="tolayer.lsp">tolayer.lsp</a>
    </td>
    <td>
    <PRE>
;;; TOLAYER.LSP - KETIV
;;;
;;; Copyright 1986, 1987, 1988, 1989 by KETIV Technologies, Inc.
;;; All rights reserved.
;;; KETIV Technologies, Inc.
;;; 6645 NE 78th Court #C2
;;; Portland, OR  97218
;;;
;;; Layer Group: None
;;;
;;; Menu Location: Edit1 pull down
;;;
;;; Purpose:  To move selected entities to the current layer
;;;
;;; Prompts:
;;;           Select objects:
;;;           Destination layer <default>:
;;;             [If the layer does not exist]
;;;             Layer "name" does not exist."
;;;
;;; Assumptions/Limitations: NONE
;;; 3-10-2008 Revised GETSTRING to accept layer names with spaces
;;;
;;;======================================================================================================
;;; Initialize memory and important system variables

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:tolayer<br/>Requires:<a href="#make_layer_ent">make_layer_ent</a>, <a href="#mklayr">mklayr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="tolist"></a><a href="tolist.lsp">tolist.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: 	variantvalue, tolist<br/>Requires:<a href="#make_layer_ent">make_layer_ent</a>, <a href="#mklayr">mklayr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="tooltipsoff"></a><a href="tooltipsoff.lsp">tooltipsoff.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:
;;;	   Edited:
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:tooltipsoff, c:tooltipson<br/>Requires:<a href="#make_layer_ent">make_layer_ent</a>, <a href="#mklayr">mklayr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="tpan"></a><a href="tpan.lsp">tpan.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:stz, c:tpan<br/>Requires:<a href="#stait">stait</a>, <a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="tparno"></a><a href="tparno.lsp">tparno.lsp</a>
    </td>
    <td>
    <PRE>
;;;Change a number in (m)any text string(s) by a value.
;;;Adds parenthesis around number.  (uses UINT USTR)
;;;Specify or change precision (decimal places) too.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	9-19-95
;;;	Edited:		9-19-95
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:tparno<br/>Requires:<a href="#stait">stait</a>, <a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="transpt"></a><a href="transpt.lsp">transpt.lsp</a>
    </td>
    <td>
    <PRE>
;;;Subroutine. Translates points from MCS to WCS.  Only for list returned by nentsel from block selection.
;;;
;;;       Requirements:   nntlst  must be a list returned by (nentsel) for a
;;;                               selection of a block (and not selected by an
;;;                               attribute).
;;;
;;;                       defpnt  is a coordinate list (x y z) of an entity
;;;                               within the selected block.
;;;
;;;       newdpt  =  the coordinate location of defpnt in the WCS.
;;;                               
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;       Copyright:      4-24-97
;;;       Edited:         4-24-97
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: transpt<br/>Requires:<a href="#stait">stait</a>, <a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="truecolor"></a><a href="truecolor.lsp">truecolor.lsp</a>
    </td>
    <td>
    <PRE>
;;;From The Swamp http://www.theswamp.org/index.php?topic=35588.0
;;;with minor edits to symbol names and added limits for int color values

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: truecolor<br/>Requires:<a href="#stait">stait</a>, <a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="truetrim"></a><a href="TRUETRIM.LSP">truetrim.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 2007
;;;	   Edited: 
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:eraseout, c:truetrim<br/>Requires:<a href="#stait">stait</a>, <a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="tsize"></a><a href="tsize.lsp">tsize.lsp</a>
    </td>
    <td>
    <PRE>
;Shows text characteristics.
;
;
;	AUTHOR: HENRY C. FRANCIS
;		425 N. ASHE ST.
;		SOUTHERN PINES, NC 28387
;              
;		All rights reserved without prejudice.
;
;	Copyright:	11-13-96
;	Edited:		11-13-96
;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:tsize<br/>Requires:<a href="#stait">stait</a>, <a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="tsnap"></a><a href="tsnap.lsp">tsnap.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:snap0, c:snap30, c:snap45, c:snap60, c:snapp, c:tsnap, c:tsnap30, c:tsnap45, c:tsnap60<br/>Requires:<a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="ttarc"></a><a href="ttarc.lsp">ttarc.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:	6-21-99
;;;	   Edited:	9-6-2005

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:ttarc, ttarc_error<br/>Requires:<a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="ttlb"></a><a href="ttlb.lsp">ttlb.lsp</a>
    </td>
    <td>
    <PRE>
;Inserts title block (attribs) and Xrefs static title info.  (attribs in CORPTTLAT.DWG, static text in ??????TC.DWG, ??????=6 chars of default dir)
;
;	AUTHOR: HENRY C. FRANCIS
;		425 N. ASHE ST.
;		SOUTHERN PINES, NC 28387
;              
;		All rights reserved without prejudice.
;
;	Copyright:	2-16-96
;	Edited:		2-16-96
;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:ttlb<br/>Requires:<a href="#mklayr">mklayr</a>, <a href="#dimscl">dimscl</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="twid"></a><a href="twid.lsp">twid.lsp</a>
    </td>
    <td>
    <PRE>
;;;Modify the text width factor of a selection set of text entities.
;;;       The only input required is the desired
;;;       text width factor and selection of the text to modify.  There
;;;       is no need to worry about not selecting non-text entities
;;;       because they will be automatically filtered out of the
;;;       selection set.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;	Copyright:	6-7-94
;;;	Edited:		6-18-99
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:twid<br/>Requires:<a href="#ukword">ukword</a>, <a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="tx2pt"></a><a href="tx2pt.lsp">tx2pt.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:tx2pt<br/>Requires:<a href="#ukword">ukword</a>, <a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="txadd"></a><a href="TXADD.LSP">txadd.lsp</a>
    </td>
    <td>
    <PRE>
;;;Add text to existing text before or after
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;	Copyright:	7-15-94
;;;	Edited:		8-22-2001
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:txadd<br/>Requires:<a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="txang"></a><a href="txang.lsp">txang.lsp</a>
    </td>
    <td>
    <PRE>
;;;Modify the text obliquing angle of a selection set of text entities. (uses UREAL
;;;       The only input required is the desired
;;;       text obliquing angle and selection of the text to modify.  There
;;;       is no need to worry about not selecting non-text entities
;;;       because they will be automatically filtered out of the
;;;       selection set.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	6-7-94
;;;	Edited:		1-24-06
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:txang<br/>Requires:<a href="#ukword">ukword</a>, <a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="txbelo"></a><a href="txbelo.lsp">txbelo.lsp</a>
    </td>
    <td>
    <PRE>
;;;Place text below a line.  Prompts for text layer by entity pick. (uses GETSTYLE USTR MKLAYR)
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;	Copyright:	4-7-95
;;;	Edited:		3-6-2006
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:txbelo<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#getstyle">getstyle</a>, <a href="#mklayr">mklayr</a>, <a href="#slent">slent</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="txonl"></a><a href="txonl.lsp">txonl.lsp</a>
    </td>
    <td>
    <PRE>
;;;Place text on a line.  (uses GETSTYLE USTR MKLAYR)
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;	Copyright:	4-7-95
;;;	Edited:		10-6-2005
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:txonl<br/>Requires:<a href="#mklayr">mklayr</a>, <a href="#slent">slent</a>, <a href="#dimscl">dimscl</a>, <a href="#getstyle">getstyle</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="txran"></a><a href="txran.lsp">txran.lsp</a>
    </td>
    <td>
    <PRE>
;;;Modify the text rotation angle of a selection set of text entities. (uses UREAL)
;;;       The only input required is the desired
;;;       text obliquing angle and selection of the text to modify.  There
;;;       is no need to worry about not selecting non-text entities
;;;       because they will be automatically filtered out of the
;;;       selection set.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;	Copyright:	7-15-94
;;;	Edited:		7-15-94
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:txran<br/>Requires:<a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="txt2arc"></a><a href="txt2arc.lsp">txt2arc.lsp</a>
    </td>
    <td>
    <PRE>
;;;Constructs ARCALIGNEDTEXT from standard text.
;;;Asks user to place a new arc which the text will be aligned to and erases the old text.
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:
;;;	   Edited:
;;;
;;;****************************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:hidearctext, c:hidearctxt, c:maskarctext, c:maskarctxt, c:text2arc, c:txt2arc, fun, mask-arc-text<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#gvpno">gvpno</a>, <a href="#img">img</a>, <a href="#make_layer_ent">make_layer_ent</a>, <a href="#uint">uint</a>, <a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="txtblks"></a><a href="txtblks.lsp">txtblks.lsp</a>
    </td>
    <td>
    <PRE>
;;;Change text in blocks to separate layer (*-TXT) from other entities.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  2001
;;;	   Edited:  8-27-2001

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:txtblks<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#gvpno">gvpno</a>, <a href="#img">img</a>, <a href="#make_layer_ent">make_layer_ent</a>, <a href="#uint">uint</a>, <a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="txthk"></a><a href="txthk.lsp">txthk.lsp</a>
    </td>
    <td>
    <PRE>
;;;Modify the thickness of a selection set of text entities. (uses UREAL
;;;       The only input required is the desired thickness
;;;       and selection of the text to modify.  There
;;;       is no need to worry about not selecting non-text entities
;;;       because they will be automatically filtered out of the
;;;       selection set.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:	8-27-97
;;;	Edited:		8-27-97
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:txthk<br/>Requires:<a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="txtin"></a><a href="txtin.lsp">txtin.lsp</a>
    </td>
    <td>
    <PRE>
;Import notes (a text file with or without numbered notes).  It uses the current text style and layer settings except the user can specify any height desired
;	regardless of the style settings.  The current text size is
;	the default.  In order to indent notes that are numbered
;       the numbers must be alone on the line before the note they
;	refer to AND they must be no longer than three characters
;	INCLUDING a required period.  Any line of three characters or
;	less that ends in a period Will be treated as a note number!
;
;	AUTHOR: HENRY C. FRANCIS
;		425 N. ASHE ST.
;		SOUTHERN PINES, NC 28387
;              
;		All rights reserved without prejudice.
;
;	Copyright:	5-28-96
;	Edited:		5-28-96
;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:txtin, newerr<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#getstyle">getstyle</a>, <a href="#gvpno">gvpno</a>, <a href="#upoint">upoint</a>, <a href="#ureal">ureal</a>, <a href="#ustr">ustr</a>, <a href="#uutils">uutils</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="txtj"></a><a href="txtj.lsp">txtj.lsp</a>
    </td>
    <td>
    <PRE>
;;;Modify the text justification of a selection set of text entities. (uses UKWORD UPOINT)
;;;       The only input required is the desired
;;;       text justification and selection of the text to modify.  There
;;;       is no need to worry about selecting non-text entities because
;;;       they will be automatically filtered out of the selection set.
;;;	DO NOT select more than one "common note group".  All of the text
;;;	selected is assumed to belong to such a group and it ALL will be
;;;	justified to the same reference position.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	7-12-94
;;;	Edited:		8-13-01
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:fixmt, c:tjmc, c:txtj<br/>Requires:<a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="txtlayr"></a><a href="txtlayr.lsp">txtlayr.lsp</a>
    </td>
    <td>
    <PRE>
;;;C:TXTLAYR appends "-TXT" to text's layer name.  C:UNTXTLAYR removes "-TXT" from text's layer name.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  6-30-99
;;;	   Edited:  6-30-99
;;;
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:txtlayr, c:untxtlayr<br/>Requires:<a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="txtlin"></a><a href="TXTLIN.LSP">txtlin.lsp</a>
    </td>
    <td>
    <PRE>
;Place Line under text strings. (on same layer).
;
;	AUTHOR: HENRY C. FRANCIS
;		425 N. ASHE ST.
;		SOUTHERN PINES, NC 28387
;		All rights reserved without prejudice.
;	Copyright:      1-26-96
;	Edited:		1-26-96
;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:txtlin<br/>Requires:<a href="#mklayr">mklayr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="txtlst"></a><a href="txtlst.lsp">txtlst.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:txtlst<br/>Requires:<a href="#mklayr">mklayr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="txtm"></a><a href="txtm.lsp">txtm.lsp</a>
    </td>
    <td>
    <PRE>
;;;Match text Style and Height. Match layer if standard, else set layer. (uses MKLAYR)
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:txtm<br/>Requires:<a href="#mklayr">mklayr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="txtsize"></a><a href="txtsize.lsp">txtsize.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:	1990-2005
;;;	   Edited:	10-16-2005
;;;
;;; Extracted from multiple routines and made into this subroutine
;;; 8-18-99
;;;
;;;	Loads USTR.LSP, DIMSCL.LSP and MKLAYR.LSP
;;;
;;;
;;; Style is forced to STANDARD on line 124.  Comment out this line
;;; to
;;; use any
;;; style.
;;;
;;;****************************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: cmud_colr, set_txt_colr, txtsize<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#mklayr">mklayr</a>, <a href="#set_mjrg">set_mjrg</a>, <a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="txtsty"></a><a href="txtsty.lsp">txtsty.lsp</a>
    </td>
    <td>
    <PRE>
;;;Modify the text style of a selection set of text entities. (uses USTR UKWORD)
;;;       The only input required is the desired
;;;       text width factor and selection of the text to modify.  There
;;;       is no need to worry about not selecting non-text entities
;;;       because they will be automatically filtered out of the
;;;       selection set.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	6-7-94
;;;	Edited:		6-7-94
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:txtsty	(/<br/>Requires:<a href="#ukword">ukword</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="u#"></a><a href="U#.lsp">u#.lsp</a>
    </td>
    <td>
    <PRE>
;******************************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:u#, c:u2, c:u3, c:u4, c:u5, c:u6, c:u7, c:u8, c:u9, u#sel<br/>Requires:<a href="#uint">uint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="uangle"></a><a href="uangle.lsp">uangle.lsp</a>
    </td>
    <td>
    <PRE>
;This function is freeware courtesy of the author's of "Inside AutoLisp" for rel. 10 published by New Riders Publications.  This credit must accompany all copies of this function.

;;;October 19, 2004 added function to check keywords

;* UANGLE User interface angle function 
;* BIT (1 for no null, 0 for none) and KWD key word ("" for none) are same as
;* for INITGET. MSG is the prompt string, to which a default real in rads is
;* added as <DEF> (nil for none), and a : is added. BPT is base point (nil
;* for none).
;*

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: uangle<br/>Requires:<a href="#chkkwds">chkkwds</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="ublk"></a><a href="ublk.lsp">ublk.lsp</a>
    </td>
    <td>
    <PRE>
;;;Update block insertions and preserve attributes. (uses MKLAYR.LSP, UKWORD.LSP)
;;;both are available FREE at http://www.paracadd.com
;;;
;;;	AUTHOR: Henry C. Francis
;;;           425 N. Ashe Street
;;;	        Southern Pines, NC 28387
;;;	All rights reserved without prejudice.
;;;
;;;	Copyright:	12-20-94
;;;	Edited:	7-20-2012
;;;
;;;	Now looks for the updated block (external DWG file) in AutoCAD Search Path; ./Blocks/; H:/Util/Fittings/; and, H:/Util/ in that order.
;;;	Updates using the first found DWG in the search order that the user approves.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:ublk, ublk<br/>Requires:<a href="#makeinsert">makeinsert</a>, <a href="#mklayr">mklayr</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="ublka"></a><a href="ublka.lsp">ublka.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;       Copyright:      4-22-97
;;;       Edited:         4-22-97
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:ublka<br/>Requires:<a href="#ukword">ukword</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="udist"></a><a href="udist.lsp">udist.lsp</a>
    </td>
    <td>
    <PRE>
;This function is freeware courtesy of the author's of "Inside AutoLisp" for rel. 10 published by New Riders Publications.  This credit must accompany all copies of this function.

;;;October 19, 2004 added function chkkwds (see description at end of file)

;* UDIST User interface function 
;* BIT (0 for none) and KWD key word ("" for none) are same as for INITGET.
;* MSG is the prompt string, to which a default real is added as <DEF> (nil
;* for none), and a : is added. BPT is base point (nil for none).
;*

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: udist<br/>Requires:<a href="#chkkwds">chkkwds</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="udpipe"></a><a href="Udpipe.lsp">udpipe.lsp</a>
    </td>
    <td>
    <PRE>
;;;Update hiding images to match edits to pipe linework
;;;Used with pipes created by ParaPIPE
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:udpipe<br/>Requires:<a href="#chkkwds">chkkwds</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="udtitlefields"></a><a href="udtitlefields.LSP">udtitlefields.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:udtitlefields<br/>Requires:<a href="#attupd">attupd</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="uint"></a><a href="uint.lsp">uint.lsp</a>
    </td>
    <td>
    <PRE>
;This function is freeware courtesy of the author's of "Inside AutoLisp" for rel. 10 published by New Riders Publications.  This credit must accompany all copies of this function.

;;;October 19, 2004 added function chkkwds (see description at end of file)

;* UINT User interface function 
;* BIT (0 for none) and KWD key word ("" for none) are same as for INITGET.
;* MSG is the prompt string, to which a default real is added as <DEF> (nil
;* for none), and a : is added.
;*

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: uint<br/>Requires:<a href="#chkkwds">chkkwds</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="ukword"></a><a href="ukword.lsp">ukword.lsp</a>
    </td>
    <td>
    <PRE>
;;; This function is freeware courtesy of the author's of "Inside AutoLisp" for rel. 10 published by New
;;; Riders Publications.  This credit must accompany all copies of this
;;; function.

;;;October 19, 2004 added function chkkwds (see description at end of file)

;;;* UKWORD User key word. DEF, if any, must match one of the KWD strings
;;;* BIT (1 for no null, 0 for none) and KWD key word ("" for none) are same as
;;;* for INITGET. MSG is the prompt string, to which a default string is added
;;;* as <DEF> (nil or "" for none), and a : is added.
;;;*

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: ukword<br/>Requires:<a href="#chkkwds">chkkwds</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="ulbl"></a><a href="ulbl.lsp">ulbl.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  1997-2011
;;;	   Edited:  9/14/16
;;;
;;;	Requires: gvpno.lsp, dimscl.lsp, getstyle.lsp, mklayr.lsp, tags.lsp, ukword.lsp, txtsize.lsp, ureal.lsp, nentsel_to_MCS.lsp, upoint.lsp, mltstyle.lsp, tnote.lsp, tnote.dcl, ureal.lsp
;;;		(the required files above may have their own additional requirements)
;;;
;;;	A section of code below forces multileader/text option where automatic placement
;;;	of aligned text would otherwise happen:
;;;	search for it using (WCMATCH sytxt "GATE") as the search string.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: bcen, c:ulbl, c:ulblsize, c:ulbltext, lpipe, set-ex-lst, set-new-lst, ulbl_error, ulbl_opts, use_mymldr<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#errortrap">errortrap</a>, <a href="#getstyle">getstyle</a>, <a href="#gvpno">gvpno</a>, <a href="#mklayr">mklayr</a>, <a href="#mlt">mlt</a>, <a href="#mltstyle">mltstyle</a>, <a href="#mymldr">mymldr</a>, <a href="#nentsel_to_mcs">nentsel_to_mcs</a>, <a href="#tags">tags</a>, <a href="#tnote">tnote</a>, <a href="#txtsize">txtsize</a>, <a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#ureal">ureal</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="umlt"></a><a href="umlt.LSP">umlt.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:umlt()<br/>Requires:<a href="#remlt">remlt</a>, <a href="#ulbl">ulbl</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="undefs"></a><a href="undefs.lsp">undefs.lsp</a>
    </td>
    <td>
    <PRE>
;;;Custom startup functions.  Contains combined DDEDIT+DDATTE, layer mgmt functs, logging functs, etc.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 1990-2001
;;;	   Edited: 6-3-2005
;;;
;;;==================================================================================================
;;;C:DEBUGSETVAR moved to separate lisp file
;;;==================================================================================================
;;;C:NILBNS moved to separate lisp file
;;;==================================================================================================
;;;undefine C:OPEN and DEFUN C:OPEN moved to separate lisp file
;;;==================================================================================================
;;;CMDOPEN moved to separate lisp file and renamed MYOPENCMD.LSP ... and replaced by myopen_fun.lsp
;;;==================================================================================================
;;;SAVE_FILE_CHK moved to separate lisp file
;;;==================================================================================================
;;;C:NEXT function moved to separate lisp file
;;;==================================================================================================
;;;C:NEXTDWG function moved to separate lisp file NEXT.LSP
;;;==================================================================================================
;;;C:PREV function moved to separate lisp file NEXT.LSP
;;;==================================================================================================
;;;C:PSPACE function moved to separate lisp file
;;;==================================================================================================
;;;DLOG moved to separate file
;;;==================================================================================================
;;;UNDEFINE qsave and DEFUN QSAVE moved to separate lisp file
;;;==================================================================================================
;;;C:BU renamed to C:BACKUP and moved to separate lisp file
;;;==================================================================================================
;;;C:SAVE moved to separate lisp file
;;;==================================================================================================
;;;C:SAVEAS moved to separate lisp file
;;;==================================================================================================
;;;C:QUIT moved to separate lisp file
;;;==================================================================================================
;;;C:SSNAP moved to separate lisp file
;;;==================================================================================================
;;;C:IBLK moved to separate lisp file
;;;==================================================================================================

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:limn, c:limx<br/>Requires:<a href="#dlog">dlog</a>, <a href="#getstyle">getstyle</a>, <a href="#gvpno">gvpno</a>, <a href="#panpnt">panpnt</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="underline"></a><a href="underline.lsp">underline.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;		COPYRIGHT: 2/25/2010
;;;		   EDITED: 2/25/2010
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:underline<br/>Requires:<a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="unlisp"></a><a href="unlisp.lsp">unlisp.lsp</a>
    </td>
    <td>
    <PRE>
;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com/
;;;	All rights reserved.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:ddatte, c:ddedit, c:end, c:quit, c:save, c:saveas, c:unlisp, fun<br/>Requires:<a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="unrot"></a><a href="unrot.lsp">unrot.lsp</a>
    </td>
    <td>
    <PRE>
;;;Unrotate a selection set of entities by the negative of the rotation angle of a block.
;;;(for returning civil plans to "north up" orientation from a rotated north angle)
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;	Copyright:	8-31-95
;;;	Edited:		11-17-2004  (added while loop for null selection error)
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:unrot<br/>Requires:<a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="unspace"></a><a href="UNSPACE.LSP">unspace.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 2006
;;;	   Edited: 08-06-2012
;;;
;;;Fixed SSGET to ignore srings consisting of only spaces.
;;;Fixes problem where blanked out associative dimensions (just a space or spaces) would default
;;;to the actual dimension if the string was made nil (1 . "")
;;;
;;;Added MULTILEADERs to the function
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:unspace<br/>Requires:<a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="update_title"></a><a href="update_title.lsp">update_title.lsp</a>
    </td>
    <td>
    <PRE>
;;;Requires a preset list with the symbol name update_list.  The list is constructed independently so that programs can
;;;simply call (update_title) as a subroutine without having to code the constantly changing list within their programs.
;;;sht_number may be incremented as shown in the sample code below.  If sht_number exists and is an integer the number
;;;you specify in update_list will be ignored. To reset sht_number to use the number you specify (SETQ sht_number NIL).
;;;
;;;The 1st item update_list requires is a list containing:
;;;	1. the sheet number prefix as a string
;;;     2. whether to separate prefix and number with an hyphen (T or NIL)
;;;     3. the starting sheet number as an integer
;;;
;;;     '("S" T 1) tells it all sheet numbers begin with the prefix "S" followed by an hyphen.
;;;     Of course this is provided you also have specified that sheet numbers will be updated,
;;;     e.g., '("corpttbats" "SHT_NO." (STRCAT sht_prefix (ITOA (1-(SETQ sht_number (1+ sht_number)))))
;;;     The statement above will increment sheet numbers
;;;     One other option is to use the 1st character of the drawing folder as the sheet number prefix
;;;     To do this make the sheet number prefix "from_folder", i.e. '("from_folder" T 1)
;;;     The 1st character of the folder name is used unless the name matches "## @*" or "##@*" in which case the character at @ is used.
;;;     e.g. if the drawing folder is "Structural" the sheet prefix is "S" 
;;;     If the sheet number is not to be updated this list must be '(nil nil nil)
;;;
;;;For each new value to set, 'update_list requires:
;;;'("<block name>" "<attribute tag>" "<new value>"), e.g.
;;;        (LIST
;;;          '("from_folder" T 1)
;;;          '("corpttbats" "DGN'D" "APK")
;;;          '("corpttbats" "DRWN" "HCF")
;;;          '("corpttbats" "CHK'D" "EWW")
;;;          '("corpttbats" "SCALE" "AS SHOWN")
;;;          '("corpttbats" "SHT_NO." (STRCAT sht_prefix (ITOA (1-(SETQ sht_number (1+ sht_number)))))
;;;        )
;;;You may use run time evaluated expressions so long as they evaluate to the correct type (STR, SYM, or INT) in the designated positions
;;;
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 5-25-2010
;;;		   EDITED: 6-1-2012
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:update_title<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#attupd">attupd</a>, <a href="#qsave">qsave</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="uplan"></a><a href="uplan.lsp">uplan.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:uplan, panprv<br/>Requires:<a href="#uint">uint</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="upoint"></a><a href="upoint.lsp">upoint.lsp</a>
    </td>
    <td>
    <PRE>
;This function is freeware courtesy of the author's of "Inside AutoLisp" for rel. 10 published by New Riders Publications.  This credit must accompany all copies of this function.

;;;October 19, 2004 added function to check keywords

;* UPOINT User interface point function 
;* BIT (1 for no null, 0 for none) and KWD key word ("" for none) are same as
;* for INITGET. MSG is the prompt string, to which a default point variable
;* is added as <DEF> (nil for none), and a : is added. BPT is base point
;* (nil for none).
;*

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: upoint<br/>Requires:<a href="#chkkwds">chkkwds</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="upointtxt"></a><a href="UPOINTTXT.lsp">upointtxt.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:upointtxt<br/>Requires:<a href="#chkkwds">chkkwds</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="uppfiles"></a><a href="uppfiles.LSP">uppfiles.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:uppfiles<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#parapoint">parapoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="ureal"></a><a href="ureal.lsp">ureal.lsp</a>
    </td>
    <td>
    <PRE>
;This function is freeware courtesy of the author's of "Inside AutoLisp" for rel. 10 published by New Riders Publications.  This credit must accompany all copies of this function.

;;;October 19, 2004 added function chkkwds (see description at end of file)

;* UREAL User interface real function 
;* BIT (0 for none) and KWD key word ("" for none) are same as for INITGET.
;* MSG is the prompt string, to which a default real is added as <DEF> (nil
;* for none), and a : is added.
;*

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: ureal<br/>Requires:<a href="#chkkwds">chkkwds</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="usedfuns"></a><a href="usedfuns.lsp">usedfuns.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 07/20/2012
;;;	   Edited: 07/20/2012
;;;
;;;****************************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: [(\t, [\t, c:usedfuns<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#[()\t">[()\t</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="usrprofvars"></a><a href="usrprofvars.lsp">usrprofvars.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:usrprofvars<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#dimscl">dimscl</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="ustael"></a><a href="ustael.lsp">ustael.lsp</a>
    </td>
    <td>
    <PRE>
;;;Update profile location and station / elevation text
;;;(SETQ no_stations T) to eliminate station text where stations are not required, e.g. hydraulic profiles.
;;;remember to (SETQ no_stations NIL) to enable stations again during the same session.
;;;Requirements:
;;;	Requires UUTILS.LSP and STAIT.LSP to be loaded.
;;;
;;;Drawing must contain:
;;;	The profile viewport on layer "*VI01*NPLT*" (preferably "??VI01?NPLT" per CLG)
;;;	The profile grid block named "cpp##spl" or "##ppgrid*" or "##spclgrid" or "##spfbgrid"
;;;		(#'s are wildcards which must be replaced with digits representing profile horizontal scale)
;;;		These profile grid blocks must contain specific attribute tags for stations and elevations,
;;;	i.e.:
;;;
;;;	left side attribute tags (ordered before right side tags)
;;;		LB+0, LB+5, LB+10, etc. ordered from highest LB+## to LB+0;
;;;		(The total number of these tags is unlimited)
;;;
;;;	right side attribute tags
;;;		RB+0, RB+5, RB+10, etc. also ordered from highest RB+## to RB+0;
;;;		(The total number of these tags is unlimited)
;;;
;;;	station attribute tags
;;;		0, +0; 1, +1; 2, +2; etc. from left to right as many as are required
;;;		place these in pairs at scaled 100' increments (english), 50m increments (metric).
;;;		integer tags are right justified and +integer tags are left justified so that the first character,
;;;		typically a plus sign (+), will lay directly under the grid line.  This solves justification related
;;;		misalignment of labels.
;;;		(The total number of these tags is unlimited)
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;		Copyright: 1-14-98
;;;		Edited: 8-20-2009
;;;
;;;****************************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:ustael, panprv, ustael_error<br/>Requires:<a href="#stait">stait</a>, <a href="#uint">uint</a>, <a href="#ukword">ukword</a>, <a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="ustapoints"></a><a href="ustapoints.lsp">ustapoints.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:ustapoints, fix_descr<br/>Requires:<a href="#stait">stait</a>, <a href="#uint">uint</a>, <a href="#ukword">ukword</a>, <a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="ustr"></a><a href="ustr.lsp">ustr.lsp</a>
    </td>
    <td>
    <PRE>
;;; This function is freeware courtesy of the author's of "Inside AutoLisp" for
;;; rel. 10 published by New Riders Publications. This credit must accompany all
;;; copies of this
;;; function.
;;;
;;; USTR User interface string If BIT=1 no null "" input allowed, 0 for none, BIT
;;; ignored if DEF present. MSG is the prompt string, to which a default string
;;; is added as <DEF> (nil or "" for none), and a : is added. If SPFLAG T, spaces
;;; are allowed in
;;; string.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: ustr<br/>Requires:<a href="#stait">stait</a>, <a href="#uint">uint</a>, <a href="#ukword">ukword</a>, <a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="utlay"></a><a href="utlay.lsp">utlay.lsp</a>
    </td>
    <td>
    <PRE>
;;;Macro to set only SWWM project layers for utilities on.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines" " NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  6-6-2001
;;;	   Edited:  11-19-2001

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:utlay<br/>Requires:<a href="#stait">stait</a>, <a href="#uint">uint</a>, <a href="#ukword">ukword</a>, <a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="uutils"></a><a href="uutils.lsp">uutils.lsp</a>
    </td>
    <td>
    <PRE>
;;; The 'U' functions loaded below can be found in the free autolisp
;;; section of http://www.paracadd.com
;;;
;;; They are freeware courtesy of the author's of "Inside AutoLisp"
;;; for rel. 10 published by New Riders Publications. This credit must
;;; accompany all copies of these functions.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:utlay<br/>Requires:<a href="#uangle">uangle</a>, <a href="#udist">udist</a>, <a href="#uint">uint</a>, <a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#ureal">ureal</a>, <a href="#ustr">ustr</a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="viewno"></a><a href="viewno.lsp">viewno.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;10/4/2007 Added the command IDVIEWS to show the fixed view numbers specified
;;;by the CAD Layer Guidelines (CLG) layer name.  If the CLG minor group of the
;;;viewport layer name does not specify a viewport number in the form "VI##"
;;;the user is asked to specify a viewport number to assign to the viewport.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://paracadd.com
;;;	All rights reserved.
;;;
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:idviews, c:rda, c:viewno<br/>Requires:<a href="#gvpno">gvpno</a>, <a href="#uint">uint</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="vl-atoms-lst"></a><a href="VL-ATOMS-LST.LSP">vl-atoms-lst.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:vlatomslst<br/>Requires:<a href="#gvpno">gvpno</a>, <a href="#uint">uint</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="vl-plotfuns"></a><a href="vl-plotfuns.LSP">vl-plotfuns.lsp</a>
    </td>
    <td>
    <PRE>
;;; By Jimmy Bergmark
;;; Copyright (C) 1997-2006 JTB World, All Rights Reserved
;;; Website: www.jtbworld.com
;;; E-mail: info@jtbworld.com
;;;
;;;  PlotDevicesFunctions.lsp
;;;
;;; 2003-01-09 More functions added
;;; 2006-07-30 Make it possible to add this lisp into your acaddoc.lsp
;;; 2006-12-15 Corrected a minor bug
;;;


    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: actlay, getactiveplotdevice, getactivestylesheet, plotdevicenameslist, plotstyletablenameslist, putactiveplotdevice, putactiveplotdevicetocompanystandardifnotexist, putactiveplotdevicetodefaultifnotexistornone, putactiveplotdevicetononeifnotexist, putactivestylesheet, putactivestylesheettocompanystandardifnotexist, putactivestylesheettodefaultifnotexistornone, putactivestylesheettononeifnotexist<br/>Requires:<a href="#gvpno">gvpno</a>, <a href="#uint">uint</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="vla-atoms-lst"></a><a href="VLA-ATOMS-LST.LSP">vla-atoms-lst.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: actlay, getactiveplotdevice, getactivestylesheet, plotdevicenameslist, plotstyletablenameslist, putactiveplotdevice, putactiveplotdevicetocompanystandardifnotexist, putactiveplotdevicetodefaultifnotexistornone, putactiveplotdevicetononeifnotexist, putactivestylesheet, putactivestylesheettocompanystandardifnotexist, putactivestylesheettodefaultifnotexistornone, putactivestylesheettononeifnotexist<br/>Requires:<a href="#gvpno">gvpno</a>, <a href="#uint">uint</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="vlfuns"></a><a href="vlfuns.lsp">vlfuns.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:vlfuns<br/>Requires:<a href="#gvpno">gvpno</a>, <a href="#uint">uint</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="vlx"></a><a href="vlx.lsp">vlx.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 4/13/2006
;;;	   Edited: 4/13/2006

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:vlx, c:vlxall<br/>Requires:<a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="vmap"></a><a href="VMap.lsp">vmap.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:	11-25-2013
;;;	   Edited:	11-25-2013
;;;
;;;	Requires:	Irfanview - http://www.irfanview.com/
;;;			DOSLIB	  - http://www.en.na.mcneel.com/doslib.htm
;;;			check_for_doslib.lsp - assures DOSLIB is loaded if available
;;;			have_irfanview.lsp - checks irfanview availability
;;;
;;;	Modifies typical screen capture images of area maps so that they will
;;;	print well from within AutoCAD.  Program adjusts brightness and gamma
;;;	settings and converts the image to grayscale, then it adjusts contrast
;;;	and gamma before saving the final result.  The resolution captured is
;;;	not changed.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:areamap, c:locationmap, c:vicinitymap, c:vmap<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#have_irfanview">have_irfanview</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="volcalc"></a><a href="volcalc.lsp">volcalc.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;		COPYRIGHT: 
;;;		   EDITED: 
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:volcalc, calc_values, circle_data, re_volc, set_af_vol, set_cf_vol, set_cy_vol, set_gal_vol, set_radi, set_volc_area, set_volc_ft, set_volc_in, set_volc_units, spec_modes, volc_error, volcalc<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#have_irfanview">have_irfanview</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="vpbnd"></a><a href="vpbnd.lsp">vpbnd.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;		COPYRIGHT: 2/5/2010
;;;		   EDITED: 
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: ptisinvp, vpbnd<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#have_irfanview">have_irfanview</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="vpfoff"></a><a href="vpfoff.lsp">vpfoff.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;		COPYRIGHT: 3-12-2008
;;;		   EDITED: 3-12-2008
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:vpfoff, test_layer_onthaw<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#have_irfanview">have_irfanview</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="vpmnr"></a><a href="VPMNR.lsp">vpmnr.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:vpmnr<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#have_irfanview">have_irfanview</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="vpset"></a><a href="vpset.lsp">vpset.lsp</a>
    </td>
    <td>
    <PRE>
;;;Generate list of user specified Vport #'s with Acad #'s associated
;;;Layer name must contain "VI##" where ## is a two digit user specified
;;;view number.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Edited: 4-9-2010	Corrected error where non-existent user viewport number
;;;				would cause an infinite loop.
;;;	Edited: 1-9-2012	Corrected error caused by selecting viewports on multiple layout tabs 
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:vpset, vpset, vpset-error<br/>Requires:<a href="#uint">uint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="vstat"></a><a href="vstat.lsp">vstat.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Revised 11/10/2012	Modified message text and changed message output from command line to alert box

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:vstat<br/>Requires:<a href="#chkctabname">chkctabname</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="vtoh"></a><a href="vtoh.lsp">vtoh.lsp</a>
    </td>
    <td>
    <PRE>
;;;Convert vertical (profile x-section) data to horizontal data (fault lines).
;;;Requires GPDGN alignment
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:vtoh<br/>Requires:<a href="#upoint">upoint</a>, <a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="vw_log"></a><a href="vw_log.lsp">vw_log.lsp</a>
    </td>
    <td>
    <PRE>
;;;;Save named views
;;;;
;;;;	AUTHOR: HENRY C. FRANCIS
;;;;		425 N. ASHE ST.
;;;;		SOUTHERN PINES, NC 28387
;;;;              
;;;;		All rights reserved without prejudice.
;;;;
;;;;	Copyright:	9-4-96
;;;;	Edited:		9-20-2010 Disabled (Obsolete)
;;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: newent, vw_log, vwnxdata<br/>Requires:<a href="#upoint">upoint</a>, <a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="waterpl"></a><a href="waterpl.lsp">waterpl.lsp</a>
    </td>
    <td>
    <PRE>
;;;Extracts data and creates polylines to replace a rather
;;;bothersome water surface block received from outside sources.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	All rights reserved.
;;;
;;;	Copyright: 9-20-99
;;;	   Edited: 9-20-99
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:waterpl<br/>Requires:<a href="#upoint">upoint</a>, <a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="wb-bdry"></a><a href="wb-bdry.lsp">wb-bdry.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:wb-bdry<br/>Requires:<a href="#gent">gent</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="wbclean"></a><a href="WBCLEAN.LSP">wbclean.lsp</a>
    </td>
    <td>
    <PRE>
;;;Make a 'Clean' Wblock of only what is selected.
;;;(Not suitable for Mspace/Pspace drawings)
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:wbclean<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#backup">backup</a>, <a href="#chk_for_doslib">chk_for_doslib</a>, <a href="#vpset">vpset</a>, <a href="#xrlayers">xrlayers</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="wbcln"></a><a href="wbcln.lsp">wbcln.lsp</a>
    </td>
    <td>
    <PRE>
;;;Make a 'Clean' Wblock of only what is selected.
;;;Drawings with both Model Space and Paper Space objects must have WBCLN run in both spaces
;;;and the resulting *-MS.DWG and *-PS.DWG files must be reassembled
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:wbcln<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#backup">backup</a>, <a href="#chk_for_doslib">chk_for_doslib</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="wdimstyle"></a><a href="wdimstyle.lsp">wdimstyle.lsp</a>
    </td>
    <td>
    <PRE>
;;;writes current dimension settings to an autolisp file.
;;;Usage: Load the autolisp file written by WDIMSTYLE into AutoCAD and execute the command
;;;       (command is the same as file/style name) to create the dimension style in any drawing.
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;		COPYRIGHT: 
;;;		   EDITED: 
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:", c:wdimstyle<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#backup">backup</a>, <a href="#chk_for_doslib">chk_for_doslib</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="webpmt"></a><a href="webpmt.lsp">webpmt.lsp</a>
    </td>
    <td>
    <PRE>
;;;Opens WEB PMT for Xerox 8825 Plotter
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  
;;;	   Edited:  

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:webpmt<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#backup">backup</a>, <a href="#chk_for_doslib">chk_for_doslib</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="whodunit-reactor"></a><a href="whodunit-reactor.lsp">whodunit-reactor.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:whodunit-reactor<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#backup">backup</a>, <a href="#chk_for_doslib">chk_for_doslib</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="whodunit"></a><a href="whodunit.lsp">whodunit.lsp</a>
    </td>
    <td>
    <PRE>
;;;Requires a preset list with the symbol name update_list.  The list is constructed independently so that programs can
;;;simply call (update_title) as a subroutine without having to code the constantly changing list within their programs.
;;;sht_number may be incremented as shown in the sample code below.  If sht_number exists and is an integer the number
;;;you specify in update_list will be ignored. To reset sht_number to use the number you specify (SETQ sht_number NIL).
;;;
;;;The 1st item update_list requires is a list containing:
;;;	1. the sheet number prefix as a string
;;;     2. whether to separate prefix and number with an hyphen (T or NIL)
;;;     3. the starting sheet number as an integer
;;;
;;;     '("S" T 1) tells it all sheet numbers begin with the prefix "S" followed by an hyphen.
;;;     Of course this is provided you also have specified that sheet numbers will be updated,
;;;     e.g., '("corpttbats" "SHT_NO." (STRCAT sht_prefix (ITOA (1-(SETQ sht_number (1+ sht_number)))))
;;;     The statement above will increment sheet numbers
;;;     One other option is to use the 1st character of the drawing folder as the sheet number prefix
;;;     To do this make the sheet number prefix "from_folder", i.e. '("from_folder" T 1)
;;;     The 1st character of the folder name is used unless the name matches "## @*" or "##@*" in which case the character at @ is used.
;;;     e.g. if the drawing folder is "Structural" the sheet prefix is "S" 
;;;     If the sheet number is not to be updated this list must be '(nil nil nil)
;;;
;;;For each new value to set, 'update_list requires:
;;;'("<block name>" "<attribute tag>" "<new value>"), e.g.
;;;        (LIST
;;;          '("from_folder" T 1)
;;;          '("corpttbats" "DGN'D" "APK")
;;;          '("corpttbats" "DRWN" "HCF")
;;;          '("corpttbats" "CHK'D" "EWW")
;;;          '("corpttbats" "SCALE" "AS SHOWN")
;;;          '("corpttbats" "SHT_NO." (STRCAT sht_prefix (ITOA (1-(SETQ sht_number (1+ sht_number)))))
;;;        )
;;;You may use run time evaluated expressions so long as they evaluate to the correct type (STR, SYM, or INT) in the designated positions
;;;
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 5-25-2010
;;;		   EDITED: 5-25-2010
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:update_title<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#attupd">attupd</a>, <a href="#qsave">qsave</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="wipeprom"></a><a href="wipeprom.lsp">wipeprom.lsp</a>
    </td>
    <td>
    <PRE>
;;;moves the cursor to the start of the prompt.
;;;Subsequent PRINC will overwrite the prompt area but only
;;;to the character position it ends on.
;;;
;;;	AUTHOR:
;;;		HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;  Copyright: 5/25/01
;;;     Edited: 5/25/01
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: wipeprom<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#attupd">attupd</a>, <a href="#qsave">qsave</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="wipewhite"></a><a href="wipewhite.lsp">wipewhite.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;		COPYRIGHT: 5/17/2007
;;;		   EDITED: 5/17/2007
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:wipewhite<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#attupd">attupd</a>, <a href="#qsave">qsave</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="wirefen"></a><a href="wirefen.lsp">wirefen.lsp</a>
    </td>
    <td>
    <PRE>
;;;Place a custom linetype as an anonymous block. It allows linear as well as curved sections. (uses UPOINT UREAL)
;;;       The user toggles
;;;       between the two during placement.  The block entity is not placed in
;;;       the drawing until the user terminates the input with a return
;;;       supplied to the "next point" prompt.  Size of the graphic elements
;;;       is determined by the dimscale.  If the user matches the dimscale
;;;       with the drawing scale the graphics will scale the same on all
;;;       drawings.  The linetype consists of equally spaced X's (nearest
;;;       to 1/2" spacing at scale for the length of arc or line) and lines
;;;       between them that do not touch.  If the variable modf = "EXST" the
;;;       circle radius is 0.03125 x dimscale, if not it is 0.0469 x dimscale.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	6-7-95
;;;	Edited:		7-29-2005
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: bulge, c:wirefen<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#upoint">upoint</a>, <a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="woodfen"></a><a href="woodfen.lsp">woodfen.lsp</a>
    </td>
    <td>
    <PRE>
;;;Place a custom linetype as an anonymous block. (uses UPOINT)
;;;       The block entity is not placed in
;;;       the drawing until the user terminates the input with a return
;;;       supplied to the "next point" prompt.  Size of the graphic elements
;;;       is determined by the dimscale.  If the user matches the dimscale
;;;       with the drawing scale the graphics will scale the same on all
;;;       drawings.  The linetype consists of equally spaced squares (nearest
;;;       to 1/2" spacing at scale for the length of arc or line) and lines
;;;       between them that do not touch.  If the variable modf = "EXST" the
;;;       circle radius is 0.03125 x dimscale, if not it is 0.0469 x dimscale.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	6-7-95
;;;	Edited:		7-29-2005
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:woodfen<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#upoint">upoint</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="wpdxrpaths"></a><a href="wpdxrpaths.lsp">wpdxrpaths.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:wpdxrpaths<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#getxrefs">getxrefs</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="xa"></a><a href="xa.lsp">xa.lsp</a>
    </td>
    <td>
    <PRE>
;;; Xref attachment function for standard symbols.  Attach at dimscale, angle=0 (uses USTR) Can preset pinit for PE seal
;;; "<pinit>_PE", bname for drawings, else it
;;; prompts.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 1991-2001
;;;	Edited:	2-28-2001
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:xa<br/>Requires:<a href="#dimscl">dimscl</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="xa1"></a><a href="xa1.lsp">xa1.lsp</a>
    </td>
    <td>
    <PRE>
;;;Xref attachment function.  Attach at 0,0; scale=1:1; angle=0�.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Edited:	2-25-2010
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:xa1<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#mklayr">mklayr</a>, <a href="#ukword">ukword</a>, <a href="#ustr">ustr</a>, <a href="#uutils">uutils</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="xbrk"></a><a href="xbrk.lsp">xbrk.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:xbrk, c:xtnd<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#mklayr">mklayr</a>, <a href="#ukword">ukword</a>, <a href="#ustr">ustr</a>, <a href="#uutils">uutils</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="xi1"></a><a href="xi1.lsp">xi1.lsp</a>
    </td>
    <td>
    <PRE>
;;;Insert at 0,0; scale=1; angle=0. (uses USTR) Can preset bname for drawings, else it prompts.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Edited:	10-26-2005
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:xi1<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="xilists"></a><a href="XIlists.lsp">xilists.lsp</a>
    </td>
    <td>
    <PRE>
;;;vla-Select filter information comments below are from http://www.afralisp.net/
;;;
;;;(vla-Select object Mode Point1 Point2 FilterType FilterData)
;;;
;;;(vla-Select newSet acSelectionSetAll)
;;;
;;;Object : 	SelectionSet
;;;		The object or objects this method applies to. 
;;;
;;;Mode :  	AcSelect enum; input-only
;;;		acSelectionSetWindow
;;;		acSelectionSetCrossing
;;;		acSelectionSetPrevious
;;;		acSelectionSetLast
;;;		acSelectionSetAll 
;;;
;;;Point1 : 	Variant (array of doubles); input-only; optional
;;;		The 3D WCS coordinates, or array of coordinates, specifying Point1. See the mode definitions above for the proper use of Point1. 
;;;
;;;Point2 : 	Variant (three-element array of doubles); input-only; optional
;;;		The 3D WCS coordinates specifying Point2. See the mode definitions above for the proper use of Point2. 
;;;
;;;FilterType : Integer; input-only; optional
;;;		A DXF group code specifying the type of filter to use. 
;;;
;;;FilterData:	Variant; input-only; optional
;;;		The value to filter on. 

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: xilists<br/>Requires:<a href="#errortrap">errortrap</a>, <a href="#setdefplot">setdefplot</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="xireactor"></a><a href="XIReactor.LSP">xireactor.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:xireactor<br/>Requires:<a href="#errortrap">errortrap</a>, <a href="#setdefplot">setdefplot</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="xiupdate"></a><a href="xiupdate.lsp">xiupdate.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:xiupdate<br/>Requires:<a href="#xilists">xilists</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="xjoin"></a><a href="xjoin.LSP">xjoin.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:xjoin()<br/>Requires:<a href="#xilists">xilists</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="xmlist"></a><a href="xmlist.lsp">xmlist.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:xmlist<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="xngellip"></a><a href="xngellip.lsp">xngellip.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  3-3-2001
;;;	   Edited:  3-3-2001

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:xngellip<br/>Requires:<a href="#mss">mss</a>, <a href="#dimscl">dimscl</a>, <a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="xo1"></a><a href="xo1.lsp">xo1.lsp</a>
    </td>
    <td>
    <PRE>
;;;Xref overlay function.  Overlay at 0,0; scale=1:1; angle=0�.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Edited:	2-25-2010
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:xo1<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#mklayr">mklayr</a>, <a href="#ukword">ukword</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="xodesign"></a><a href="xodesign.lsp">xodesign.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 8/19/2010
;;;		   EDITED: 8/19/2010
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:xod, c:xodesign, xodesign_error<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#ustr">ustr</a>, <a href="#xo1">xo1</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="xor1"></a><a href="XOR1.LSP">xor1.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	All rights reserved.
;;;
;;;	Copyright:  
;;;	   Edited:  

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:xor1<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#ustr">ustr</a>, <a href="#xo1">xo1</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="xpac"></a><a href="xpac.lsp">xpac.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;		COPYRIGHT: 
;;;		   EDITED: 
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:xpac<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#ustr">ustr</a>, <a href="#xo1">xo1</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="xpfl"></a><a href="xpfl.lsp">xpfl.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;		COPYRIGHT: 
;;;		   EDITED: 
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:xpfl<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#ustr">ustr</a>, <a href="#xo1">xo1</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="xplt"></a><a href="xplt.lsp">xplt.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;		COPYRIGHT: 4-21-2010
;;;		   EDITED: 5-23-2013
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:xplt<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#setdefplot">setdefplot</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="xpts"></a><a href="xpts.lsp">xpts.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  
;;;	   Edited:  

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:xpts<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="xr2ins"></a><a href="xr2ins.lsp">xr2ins.lsp</a>
    </td>
    <td>
    <PRE>

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:xr2ins<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="xrdet"></a><a href="xrdet.lsp">xrdet.lsp</a>
    </td>
    <td>
    <PRE>
;;;Detach selected XREF.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:xrdet<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#ukword">ukword</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="xreftree"></a><a href="Xreftree.lsp">xreftree.lsp</a>
    </td>
    <td>
    <PRE>
;;;  ;Stephan Koster 2002, posted to adesk customization
;;;  ;newsgroup on 4/21/2002

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: build_retlist, c:xreftree, c:xrs-test, c:zxrs, debug-lines, findinlist, fun, getxrefnames, isdbmod, nested_p, printresults, xreftree, xrswap-open<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#lamacs">lamacs</a>, <a href="#myopen_fun">myopen_fun</a>, <a href="#next">next</a>, <a href="#setprevdwg">setprevdwg</a>, <a href="#ukword">ukword</a>, <a href="#vpbnd">vpbnd</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="xrfs"></a><a href="xrfs.lsp">xrfs.lsp</a>
    </td>
    <td>
    <PRE>
;;;Lists just names of all XREFs attached, one per line.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:xrfs<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="xrilst"></a><a href="xrilst.lsp">xrilst.lsp</a>
    </td>
    <td>
    <PRE>
;;;Lists just names of all XREFs attached, one per line.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:xrilst, c:xrout<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="xrlayers"></a><a href="xrlayers.lsp">xrlayers.lsp</a>
    </td>
    <td>
    <PRE>
;;;C:XRLAYERS writes layer status to file.  C:RXRLAY restores layer color/linetype from file.
;;;C:RLAYERS strips filename prefix from Xref layers and restores layer color/linetype from file.
;;;If XREF layer linetype is overridden in current drawing but not in settings file, linetype will remain unchanged.
;;;Turn off VISRETAIN, reopen the file, turn on VISRETAIN, then use C:RXRLAY to full effect.
;;;
;;;If symbol named write_ltype_needs is not nil, filename ltneeds.txt is written/appended with ltype needs.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	All rights reserved.
;;;
;;;	Copyright:  6-30-99
;;;	   Edited:  2-2-2008
;;;
;;;	Added Xref layer settings import (same layer names, different xref name prefix)
;;;	type IMPORTXRL at the command prompt.  May use wildcards preceding "|".
;;;	Do not include "|" (the [shift+backslash] key).
;;;
;;;
;;;	Default filename includes layout name and view number (as specified by the CLG layer name e.g. ??VI##?...
;;;
;;;	Now also saves status of layers frozen in the current viewport.
;;;
;;;	Requires: gvpno.lsp, uint.lsp, chkkwds.lsp, ukword.lsp, ustr.lsp, doslib##.arx (where ##=AcadVer as an integer), check_for_doslib.lsp, set_mjrg.lsp
;;;
;;;****************************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:importxrl, c:replpfx, c:rlayers, c:rvplay, c:rxlayers, c:rxrlay, c:xrlayers, islayervpfrozen, setvpfrzlst, str_ltype, xrl_file_spec, xrlayerserror<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#tsnap">tsnap</a>, <a href="#check_for_doslib">check_for_doslib</a>, <a href="#gvpno">gvpno</a>, <a href="#ukword">ukword</a>, <a href="#ustr">ustr</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="xrpath"></a><a href="xrpath.lsp">xrpath.lsp</a>
    </td>
    <td>
    <PRE>
;;;Makes XREF paths relative if possible.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	All rights reserved.
;;;
;;;	Copyright:  
;;;	   Edited:  

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:xrpath<br/>Requires:<a href="#qsave">qsave</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="xrswap"></a><a href="xrswap.lsp">xrswap.lsp</a>
    </td>
    <td>
    <PRE>
;;;Open selected XREF for editing. (In which case it is then the active drawing.) (uses Robert McNeel & Assoc.'s DOSLIB)
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	11-15-2011 Completely rewritten 
;;;
;;;;******************************************************************************

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:gotoxr, c:setzxst, c:xrswap, c:zxrs, c:zxst, isdbmod, return_sdi_0, xrswap-error, xrswap-open<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#next">next</a>, <a href="#opendwg">opendwg</a>, <a href="#setprevdwg">setprevdwg</a>, <a href="#tsnap">tsnap</a>, <a href="#ukword">ukword</a>, <a href="#vpbnd">vpbnd</a>, <a href="#xref">xref</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="xrunload"></a><a href="xrunload.LSP">xrunload.lsp</a>
    </td>
    <td>
    <PRE>
;;;Detach selected XREF.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		Modified 4-25-02 to unload xrefs instead of detach
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:xru<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#next">next</a>, <a href="#opendwg">opendwg</a>, <a href="#setprevdwg">setprevdwg</a>, <a href="#tsnap">tsnap</a>, <a href="#ukword">ukword</a>, <a href="#vpbnd">vpbnd</a>, <a href="#xref">xref</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="xstatus"></a><a href="XSTATUS.LSP">xstatus.lsp</a>
    </td>
    <td>
    <PRE>
;;;   XSTATUS.lsp
;;;   Copyright (C) 1991, 1992 by Autodesk, Inc.
;;;
;;;   Permission to use, copy, modify, and distribute this software and its
;;;   documentation for any purpose and without fee is hereby granted.
;;;
;;;   THIS SOFTWARE IS PROVIDED "AS IS" WITHOUT EXPRESS OR IMPLIED WARRANTY.
;;;   ALL IMPLIED WARRANTIES OF FITNESS FOR ANY PARTICULAR PURPOSE AND OF
;;;   MERCHANTABILITY ARE HEREBY DISCLAIMED.
;;;
;;;   by Carl Bethea
;;;   9 September 1991
;;;
;;;   Revised: 17 Mar 92  CBB
;;;   Revised: 18 May 92  CBB
;;;
;;; * No error function defined. *
;;;--------------------------------------------------------------------------;
;;;   DESCRIPTION
;;;
;;;   This function represents the nesting of XRefs graphically.
;;;
;;;   XSTATUS prints a listing of the block table, indenting each name
;;;   based on the nesting level of the block.  It tries not to repeat block
;;;   names at the first level.  That is, if the block name is nested in
;;;   another block which XSTATUS has already investigated, then it won't be
;;;   listed again as an individual block, though it will show up if it is
;;;   nested again within another block.
;;;
;;;   Note: Externally dependent anonymous blocks have peculiar enames.
;;;   When an attempt is made to access the block def in the nested block,
;;;   ENTGET will fail. You will notice a period "." printed after a
;;;   anonymous block name indicating that TBLSEARCH failed.  Don't try
;;;   to access these block names through TBLSEARCH.
;;;
;;;
;;;--- c:xstatus --------------------------------------------
;;;    print block names, indented for each level of nesting
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:xstatus, dxf, ferret, page, show<br/>Requires:
<a href="https://wiki.mcneel.com/doslib/home" target="_blank">Doslib</a>, <a href="#next">next</a>, <a href="#opendwg">opendwg</a>, <a href="#setprevdwg">setprevdwg</a>, <a href="#tsnap">tsnap</a>, <a href="#ukword">ukword</a>, <a href="#vpbnd">vpbnd</a>, <a href="#xref">xref</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="xydist"></a><a href="XYDIST.LSP">xydist.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  
;;;	   Edited:  

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:xydist<br/>Requires:<a href="#gent">gent</a>, <a href="#xyscl">xyscl</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="xyscl"></a><a href="xyscl.lsp">xyscl.lsp</a>
    </td>
    <td>
    <PRE>
;;;Modify X, Y, and Z scale factors.  Each is specified individually allowing unequal scaling (or alternatively setting them equal). (uses UREAL)
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	3-16-95
;;;	Edited:		3-16-95
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:xyscl, c:xysclp, rescl_blks<br/>Requires:<a href="#ukword">ukword</a>, <a href="#upoint">upoint</a>, <a href="#ureal">ureal</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="zc3"></a><a href="zc3.lsp">zc3.lsp</a>
    </td>
    <td>
    <PRE>
;;;This function is intended to automate the positioning of a detail enlargement in a "numbered" viewport.
;;;The commands are ZC3 through ZC6 (additional command numbers may be easily added below).
;;;
;;;Viewport numbers are specified in characters 3-6 of the viewport layer name, e.g. C-VI037NPLT (This is a modified CLG format)
;;;
;;;In the example viewport layer name:
;;;	1st character "C" specifies it is a Civil layer.
;;;	2nd character "-" specifies the layer linetype is "continuous".
;;;		(2nd character "-" is CLG but only if nothing is specified by it else it is non-CLG)
;;;	3rd through 6th character "VI03" specifies is a viewport number of 3.
;;;	7th character "7" specifies a layer color 7.
;;;		(7th character "-" is CLG but only if nothing is specified by it else it is non-CLG)
;;;	8th through 11th character "NPLT" specifies it is a Non-Plot layer.
;;;
;;;VPSET, an external subroutine, works using this layer format.
;;;UPOINT is an external subroutine.
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 11/17/2011
;;;		   EDITED: 11/17/2011
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:zc3, c:zc4, c:zc5, c:zc6, new-mvpc<br/>Requires:<a href="#uint">uint</a>, <a href="#upoint">upoint</a>, <a href="#vpset">vpset</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="zpoint"></a><a href="zpoint.lsp">zpoint.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:zpoint<br/>Requires:<a href="#uint">uint</a>, <a href="#upoint">upoint</a>, <a href="#vpset">vpset</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td width="120" align="middle"><a name="ztrick"></a><a href="ztrick.lsp">ztrick.lsp</a>
    </td>
    <td>
    <PRE>
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 12/8/2012
;;;	   Edited: 12/8/2012
;;;

    </PRE>
    </td>
  </tr>

  <tr>
    <td colspan="2" width="*">
      <span class="stdbody">Commands/functions defined: c:ztrick<br/>Requires:<a href="#uint">uint</a>, <a href="#upoint">upoint</a>, <a href="#vpset">vpset</a>, <a href="#"></a>      </span>

    </td>
  </tr>
</table>
<table cols="2" width="100%" border="0">
  <tr>
    <td colspan="2" align="right" width="*" height="15">

    </td>
  </tr>
</table>
</body></html>
